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CHAPTER  1 
OVERVIEW 


1.1  INTRODUCTION 


This  document  is  the  application  programmer’s  manual  for  GEMPAK. 
It  is  intended  to  help  programmers  write  stand-alone  programs 
which  call  GEMPAK  subroutines  as  well  as  application  programs 
which  run  as  part  of  GEMPAK.  The  GEMPAK  User’s  Manual  provides 
information  on  running  GEMPAK;  the  GEMPAK  Installation  Guide 
provides  information  on  bringing  up  GEMPAK  at  a site.  GEMPLT 
graphics  subroutines  are  documented  in  the  GEMPLT  Programmer’s 
Gu i d e . 

All  of  the  GEMPAK  subroutines  have  been  written  in  standard 
FORTRAN/77  (plus  DO  WHILE  and  END  DO  constructs)  with  modularity, 
documentation,  and  extensibility  as  important  design 
considerations.  The  code  was  developed  on  a VAX  11/780  running 
the  VMS  operating  system  and  has  been  ported  to  several  Unix 
mach ines . 

GEMPAK  is  designed  to  work  with  the  TAE  (Transportable 
Applications  Executive)  user  interface.  For  sites  that  do  not 
have  the  TAE  installed,  or  users  who  want  a simpler  interface, 
a non-TAE  (NT)  interface  is  available.  The  IP  library  is  the 
programmer  interface  to  both  the  TAE  and  the  non-TAE  versions. 


1.2  ACCESS  TO  GEMPAK 


The  programmer  must  have  the  logical  names  GEMUSR  and  GEMLIB 
assigned  to  the  roots  of  the  GEMPAK  user  files  and  the  GEMPAK 
software  files  respectively.  GEMUSR  and  GEMLIB  may  point  to 
the  same  directory.  Once  the  assignments  are  made,  execute  the 
c ommand : 
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©GEML I B : PAS  S I GN 

The  following  (partial)  list  of  logical  names  will  be  assigned: 

GEMOLB  - GEMPAK  object  libraries 

GEMTABL  - GEMPAK  tables 

GEMERR  - GEMPAK  error  files 

GEMEXE  - GEMPAK  programs 

Also,  the  TAE  logical  names  required  by  GEMPAK  wi  1 1 be  assigned. 


1.3  SUBROUTINE  LIBRARIES 


GEMPAK  programs  are  built  in  a modular  fashion  using  an  extensive 
set  of  subroutines  grouped  by  function  into  GEMPAK  libraries.  Each 
library  subroutine  name  begins  with  two  letters  indicating  the 
function  followed  by  an  underscore  (’_’).  For  example, 
SF_OPNF  is  a subroutine  from  the  SF  (surface)  library  which  opens 
a surface  file.  Since  the  names  of  some  GEMPAK  subroutines  may  not 
be  known  to  the  programmer,  p r og r amme r - de f i ned  subroutine  names 
should  not  follow  the  xx_.  . . pattern  to  avoid  unintentional 
duplication  of  subroutine  names. 

Documentation  for  all  of  the  program-callable  GEMPAK  library 
su  routines  is  included  in  the  rest  of  this  manual  along  with  brief 
descriptions  of  the  libraries’  functions. 


1.4  OBJECT  CODE 

The  object  code  for  the  GEMPAK  subroutines  is  contained  in 

r r*es  in  a directory  whose  logical  name  is  GEMOLB:  . 

The  GEMPAK  library  is: 

GEMOLB : GEML I B 

The  GEMPLT  object  code  is  located  in: 

GPOLB : APPL 

Th e TAE  object  libraries  are: 

TAE$OLB : TAEL  I B 
TAESOLB : COTS 


The  GEMPLT  and  TAE  libraries  must  be  included  only 


if  GEMPLT  or  TAE 
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calls  are  made  within  the  program  being  linked. 

If  more  than  one  of  these  libraries  is  used,  they  must  be  included 
in  the  link  command  in  the  order  given  above.  For  example,  the 
program  GDCNTR  which  uses  the  general  GEMPAK  library,  the  GEMPLT 
library,  and  the  TAE  can  be  linked  using  the  command: 

LINK/EXE=GDCNTR  GDCNTR/LIB, - 

GEMOLB : GEMLI B/LI B , - 
GEMOLB : APPL/LIB , - 
GEMOLB :GEML IB/LIB, - 
TAE$OLB : TAEL IB/LIB , - 
TAESOLB: COTS /LIB 


1 . 5 TAE 


The  TAE  is  used  by  GEMPAK  to  provide  the  interface  between  the 
user  and  the  application  programs.  In  order  to  receive  variables 
from  the  TAE,  the  programmer  should  use  the  GEMPAK  IP  library.  No 
TAE  subroutines  should  be  called  directly;  TAE  subroutines  cannot 
be  mixed  with  the  IP  modules.  Using  the  IP  library  allows  the 
p r o g r am  to  enter  a ’dyn  am  ic  tutor,’  in  wh  ich  the  user  can  enter 
new  values  for  the  program  variables  without  exiting  the  program. 
Any  TAE  error  encountered  will  be  printed  immediately  by  the  IP 
subroutines . 

GEMPAK  programs  use  TAE  global  parameters  to  save  default  values 
of  the  input  variables.  These  defaults  are  retained  between 
programs  and  from  one  session  to  the  next.  Whenever  the  value  of 
a global  parameter  is  changed,  the  new  value  becomes  the  default 
(provided  the  progr  am  i n wh  ich  it  was  changed  ran  successfully). 

As  an  example,  if  the  user  sends  output  to  a file  in  SFLIST,  then 
enters  SNLIST,  the  initial  value  of  OUTPUT  wi 1 1 be  F.  Global 
par  ame  ters  are  designated  by  a $ as  the  first  character. 

All  GEMPAK  parameters  have  a comparable  TAE  global  value.  As 
a result,  all  parameter  changes  made  by  the  user  in  executing 
one  program  will  carry  over  to  following  programs.  The  global 
parameter  default  values  are  updated  with  a call  to  the  IP — USTR 
subrout ine . 

In  order  for  a program  to  receive  variables  from  the  TAE,  a text 
file  called  a PDF  must  be  written.  A complete  description  of  the 
PDF  files  is  included  in  the  TAE  Programmer’s  Guide.  The 
following  description  applies  to  writing  PDFs  for  GEMPAK  programs. 

There  are  four  parts  needed  for  each  PDF: 
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1.  variable  description 

2.  help  for  the  progr  am 

3.  level  1 help  for  the  variables 

4.  level  2 help  for  the  variables 

arranged  as  follows: 

PROCESS  HELP=* 

[ variable  description  ] 

END- P ROC 
.TITLE 

[ program  title  ] 

.HELP 

[ program  help  ] 

. LEVEL 1 

t level  1 help  ] 

•LEVEL 2 

[ level  2 help  ] 

.END 

The  variable  description  must  use  REFGBL  statements  to  name  the 
global  variables  that  are  referenced  in  the  program.  $ TUTOR , 

SMAPFIL  and  SRESPOND  must  appear  in  all  GEMPAK  programs.  Then  local 
variables  are  named,  all  of  which  correspond  to  global  parameters. 
The  command  procedure  PDFBLD  will  build  the  PDF  file  from  a . PRM 

r 1 Af r,Th  1 C h lists  a11  the  program  parameters.  The  program  help  files 
t.HLPJ  and  parameter  help  files  are  stored  in  GEMHLP . 


1.6  METEOROLOGICAL  PARAMETERS 


Several  facilities  are  available  to  the  GEMPAK  programmer  for 
computing  a variety  of  parameters.  All  meteorological  parameters 
are  given  names  in  GEMPAK.  All  the  observed  quantities  which  may 
be  found  in  surface  or  sounding  data  sets  are  given  4-character 
names.  A list  of  the  abbreviations  and  a description  of  the 
parameters  are  given  as  an  appendix  to  the  GEMPAK  User’s  Guide. 

The  PR  library  is  a collection  of  functions  which  can  be  used  to 
compute  meteorological  parameters  from  other  parameters.  The  PR 
library  contains  general  purpose  routines  wh  ich  can  be  used 
without  reference  to  the  other  GEMPAK  libraries. 

The  PC  library  is  available  to  compute  parameters  automatically 
from  the  parameters  given  in  surface  and  sounding  data  sets.  In 
addition,  the  PC  library  will  convert  upper-air  data  to  different 
vertical  coordinate  systems,  and  will  interpolate  and  extrapolate 
data. 
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The  DG  library  allows  computation  of  diagnostic  functions  from 
gridded  data.  The  functions  are  expressed  as  nested  strings  of 
operators  and  operands,  allowing  flexibility  in  calculating  new 
quantities.  In  addition,  in-line  flags  for  ti me , level,  and 
vertical  coordinate  permit  the  user  additional  freed om  in  defining 
functions.  The  grid  diagnostics  are  documented  in  an  appendix  to 
the  User’s  Gu i d e . 


1.7  ERROR  PROCESSING 


Error  messages  in  GEMPAK  programs  should  be  printed  using  the 
subroutine  ER_\\MSG . The  text  of  error  messages  is  saved  in  text 
files  called  xx.ERR,  where  xx  is  the  subroutine  library  or 
program  name.  These  files  must  reside  in  the  directory  pointed 
to  by  GEMERR.  The  error  file  format  is  described  in  the  ER  library 
document  a t i on . 

Most  library  subroutines  will  not  print  error  messages  themselves 
except  for  the  TAE  errors,  which  are  printed  by  the  IP  library,  and 
FORTRAN  file  errors,  which  are  printed  from  subroutines  which  open, 
read,  or  write  to  files. 


1.8  I/O 

All  of  the  I/O  done  by  GEMPAK  is  FORTRAN  I/O.  Programmers  should 
use  the  data-set  libraries  to  access  data  files  rather  than 
read  them  directly. 

Programmers  who  find  it  necessary  to  do  I/O  not  provided  by  GEMPAK 

subroutines  can  use  FL PERR  to  print  error  messages.  This 

subroutine  must  be  called  when  the  error  is  encountered.  The  value 
for  IOSTAT  must  be  passed  to  it.  The  error  will  be  interpreted  and 
printed  using  ER_\\MSG. 

GEMPAK  tables  may  be  accessed  using  the  TB  library  subroutines. 

These  should  be  used  so  that  the  format  of  the  table  files  can  be 
changed  in  the  future  without  adversely  affecting  existing  software. 
The  GEMPAK  tables  are  stored  in  GEMTABL . If  new  tables  are  needed, 
the  appropriate  TB  subroutine  should  be  written. 
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OVERVIEW 


1.9  GRAPHICS 


All  the  graphics  and  transformation  functions  are  provided  by  GEMPLT 
The  GG  library  is  provided  to  standardize  and  simplify  some  calls  to 
the  GEMPLT  subroutines.  Attributes  may  be  set  using  IN  subroutines. 
Most  graphics  plotting  calls  will  be  made  directly  to  the  GEMPLT 
subroutines. 
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CHAPTER  2 

DIAGNOSTIC  GRID  (DG)  LIBRARY 


DG_AREA 
DG_JFLNO 
DG_GRID 
DG_I  NIT 
DG_OANG 
DG_OF I L 
DG_VECR 
DG_VECT 


Set  area  for  diagnostics 
Retrieve  file  number  from  GFUNC 
Compute  scalar  grid 
Initialize  diagnostic  package 
Set  orientation  angle 
Open  mu ltiple  grid  files 
Compute  grid  relative  vector 
Compute  vector  grid 
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Diagnostic  Grid  ( DG ) Library  S unma r y 


The  DIAGNOSTIC  GRID  package  provides  subroutines  to  perform 
diagnostic  computations  on  gridded  fields.  DG_GR I D computes  scalar 
quantities;  DG_VECR  and  DG_VECT  compute  vector  quantities  in 
8 ^ relative  and  north  relative  coordinates,  respectively. 

The  diagnostics  package  must  be  initialized  each  time  new  grid  files 

are  to  be  accessed.  Usually,  DG OFIL  will  be  called  to  open  the  grid 

files  and  perform  the  initialization.  If  only  one  file  is  to  be 
opened,  DG__INIT  may  be  called  instead. 

DG_GRID,  DG_VECR  and  DG_VECT  require  the  date/time,  vertical  level, 
vertical  coordinate  and  grid  diagnostic  function  that  were  input  by 
the  user.  Although  input  and  intermediate  grids  may  be  either  scalars 
or  vectors,  the  output  for  DG_GR I D mu st  be  a scalar,  and  for  DG  VECR 
o r DG_VECT  mu  st  be  a vector. 


ERROR  MESSAGES: 


[DG  -1 ] 
[DG  -2] 
[DG  -3] 
[DG  -4] 
[DG  -5] 
[DG  -6] 
[DG  -7] 
[DG  -8] 
[DG  -9] 
[DG  -10] 
[DG  -11] 
[DG  -12] 
[DG  -13] 
[DG  - 14 ] 
[DG  -15] 
[DG  -16] 
[DG  -17] 
[DG  -18] 
[DG  -19] 
[DG  -20] 
[DG  -21] 
[DG  -22] 
[DG  -23] 
[DG  -24] 
[DG  -26] 
[DG  -27] 
[DG  -28] 


Grid  size  is  too  large. 

Grid  size  is  invalid. 

GFUNC  is  blank. 

Output  grid  is  not  a scalar. 

Output  grid  is  not  a vector. 

An  operator  has  an  incorrect  number  of  operands. 
Input  grid  . . . cannot  be  found. 

Input  grid  ...  is  the  wrong  size. 

Operator  ...  has  a calling  sequence  error. 
Internal  grid  list  is  full;  simplify  function. 
Operand  ...  must  be  a vector. 

Operand  ...  must  be  a scalar. 

Operand  ...  must  be  read  from  grid  file. 

DG_I NIT  has  not  been  called. 

Center  of  polar  grid  is  not  valid. 

Map  projection  ...  is  invalid. 

LEVEL  ...  must  be  a layer. 

T IME  . . . mu s t be  a t ime  range . 

Operator  ...  is  not  recognized. 

Stack  is  full;  simplify  function. 

Stack  is  empty;  check  operands,  nesting. 

TIME  ...  is  inva lid. 

LEVEL  ...  is  invalid. 

IVCORD  ...  is  invalid. 

Layer  of  layers  is  invalid. 

Layer  of  time  range  is  invalid. 

No  orientation  vector  for  TANG  or  NORM. 
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[DG  -29] 
[DG  -30] 
[DG  -31] 
[DG  -32] 


No  grid  file  name  specified. 

Error  opening  grid  file. 

Navigation  is  not  the  same  as  in  first  grid  file. 
Invalid  file  number. 
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DGLAREA 

DG_FLNO 

DG_GRID 

DG_INIT 
DG_OANG 
DG_OF I L 
DG_VECR 

DG_VECT 


DG  Library  Calls 


( igxmin,  igxmax,  igymin,  igymax,  / iret  ) 

( gfunc,  / igdfln,  iret  ) 

( gdattm,  glevel,  gvcord,  gfunc,  / pfunc,  grid,  igx, 
igy,  time,  level,  ivcord,  parm,  iret  ) 


( igdfln,  rnav,  lasttm,  / iret  ) 

( orient,  / iret  ) 

( gdfile,  gdoutf,  / igdfln,  ioutfl,  iret  ) 

( gdattm,  glevel,  gvcord,  gvect,  / pfunc,  ugrid,  vgrid, 
igx.  igy.  time,  level,  ivcord,  parmu,  parmv,  iret  ) 


( 


gdattm,  glevel,  gvcord,  gvect, 
igx,  igy.  time,  level,  ivcord. 


/ pfunc,  ugrid,  vgrid, 
p a rmu  , p a rmv  , iret  ) 
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2.1  DG _JlREA  - SET  AREA  FOR  DIAGNOSTICS 


This  subroutine  defines  the  grid  subarea  needed  for  diagnostics  in 
an  application  program.  If  this  subroutine  is  called,  diagnostics 
will  be  computed  only  over  this  subarea  so  that  the  computations 
will  execute  faster. 


DG_jYREA  ( IGXMIN, 

IGXMAX, 

IGYMIN,  IGYMAX,  IRET  ) 

Input  parameters: 
IGXMIN 

INTEGER 

Minimum  x 

grid 

coordinate 

IGXMAX 

INTEGER 

Ma  x i mum  x 

grid 

coordinate 

IGYMIN 

INTEGER 

Minimum  y 

grid 

coordinate 

IGYMAX 

INTEGER 

Maximum  y 

grid 

coordinate 

Output  parameters: 
I RET 

INTEGER 

Return  code 

0 = normal  return 
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2.2  DG _FLNO 


This  subroutine  r 
first  grid  file  r 
call  GD_  s u b r o u t i 

DG_TLNO  ( GFUNC , 

Input  parameters: 
GFUNC 

Output  parameters 
IGDFLN 
I RET 


RETRIEVE  FILE  NUMBER  FROM  GFUNC 


eturns  the  grid  file  number  corresponding  to  the 
eferenced  in  GFUNC.  This  number  can  be  used  to 
nes  to  find  the  levels  in  a grid  file. 

IGDFLN,  I RET  ) 


CHAR* 

Input 

for  GFUNC 

INTEGER 

Grid 

file  numbe  r 

INTEGER 

Re  tu  r 

n code 

0 - 

normal  return 

-32  = 

inval id  file  number 
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2.3  DG_GRID 

COMPUTE 

SCALAR  GRID 

This  subroutine  computes  a 

grid  diagnostic  scalar  quantity. 

inputs  for  GDATTM, 

GLEVEL , 

GVCORD  and  GFUNC  should  be  the  val 

i npu  t by  the  user. 

DG_GR I D ( GDATTM, 

GLEVEL , 

GVCORD,  GFUNC,  PFUNC,  GRID, 

IGX , I GY , TIME , 

LEVEL,  IVCORD,  PARM,  I RET  ) 

Input  parameters: 

GDATTM 

CHAR* 

Input  date/t ime 

GLEVEL 

CHAR* 

Input  level 

GVCORD 

CHAR* 

Input  vertical  coordinate 

GFUNC 

CHAR* 

Diagnostic  function 

Output  parameters: 

PFUNC 

CHAR* 

Diagnostic  error  string 

GRID  (IGX.IGY) 

REAL 

Output  scalar  grid 

IGX 

INTEGER 

Number  of  points  in  x dir 

I GY 

INTEGER 

Number  of  points  in  y dir 

TIME  (2) 

CHAR* 

Output  date/time 

LEVEL  (2) 

INTEGER 

Ou  t pu  t level 

IVCORD 

INTEGER 

Output  vertical  coordinate 

PARM 

CHAR* 

Output  parameter  name 

I RET 

INTEGER 

Return  code 

3 = user  typed  EXIT 

0 = no rma 1 return 
-3  = GFUNC  i s blank 
-4  = output  grid  not  a scalar 
-6  = wrong  number  of  operands 
-7  = grid  cannot  be  found 
-8  = grid  is  the  wrong  size 
-9  = incorrect  operands 
-10  = internal  grid  list  is  full 
-11  - operand  mu  st  be  a vector 

-12  = operand  mu  st  be  a scalar 

-13  = operand  mu  s t be  f r om  grid 

-14  = DG_INIT  not  initialized 

-15  = polar  center  invalid 
-16  = map  proj  is  invalid 
-17  = LEVEL  must  be  a layer 
-18  « TIME  must  be  a range 
-19  = invalid  operator 
-20  = stack  is  full 
-21  = stack  is  empty 
-22  = TIME  is  invalid 
-23  - LEVEL  is  invalid 
-24  = IVCORD  is  invalid 
-26  = layer  of  layers  invalid 
-27  = time  range  layer  invalid 
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2.4  DG_INIT  - INITIALIZE  DIAGNOSTIC  PACKAGE 


This  subroutine  initializes  the  grid  diagnostics  package  for  a 

grid  file.  Note  that  this  subroutine  is  called  by  GR FILE.  It 

should  be  called  only  in  programs  which  will  use  DG__GRID,  DG__VECT 

or  DG_VECR , but  will  not  open  the  grid  file  using  GR FILE.  When 

DG_INIT  is  called,  GR__OPEN  and  GR_SNAV  must  be  called  first  to 
open  the  file  and  define  the  grid  navigation,  respectively. 


In  general,  DG_jOFIL  should  now  be  used  to  open  files.  This 
subroutine  is  included  for  use  in  older  programs. 

DG_INIT  ( IGDFLN , RNAV,  LASTTM,  I RET  ) 


Input  parameters: 
IGDFLN 
RNAV  (256) 
LASTTM 


INTEGER 

REAL 

CHAR* 


Grid  file  numbe  r 
Grid  navigation  block 
Last  time  in  grid  file 


Ou  t pu  t par  ame  t e r s : 

I RET  INTEGER 


Re  turn  code 

0 = normal  return 
-1  = grid  size  is 
-2  = grid  size  is 


too  large 
i n va  1 id 
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2.5  DG_OANG  - SET  ORIENTATION  ANGLE 


This  subroutine  sets  the  orientation  angle  for  the  grid 
package.  This  angle  is  usually  used  to  determine  normal 
tangential  components  of  vectors  with  respect  to  a cross 
The  tangential  components  are  along  the  orientation  angl 

DG_OANG  ( ORIENT,  I RET  ) 

Input  parameters: 

ORIENT  REAL  Orientation  angle  in 

Ou  t pu  t par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 = no rma  1 return 


diagnostics 

and 

section, 
e . 


radians 
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2.6  DG__OF I L - OPEN  MULTIPLE  GRID  FILES 


This  subroutine  opens  grid  files  and  initializes  the  grid 
diagnostics  package.  It  should  be  called  whenever  more  than 
one  grid  file  might  be  input.  The  input  grid  file  names  must 
be  separated  with  a + . Only  one  output  file  name  is  allowed. 
The  sum  of  distinct  input  and  output  files  cannot  exceed  four 


DG_OF I L ( GDFILE,  GDOUTF , IGDFLN , IOUTFL,  I RET  ) 


Input  parameters: 

GDFILE  CHAR* 

GDOUTF  CHAR* 


Grid  file  name  s 
Output  grid  file  name 


Output  par  ame  t e r s : 
IGDFLN 
IOUTFL 
I RET 


INTEGER 

INTEGER 

INTEGER 


Grid  file  number  for  file  1 
Output  grid  file  number 
Re  turn  code 

0 «=  normal  return 
-29  - file  open  failure 
-30  = error  opening  file 
-31  = navigation  not  the  same 
-33  - too  many  files  to  open 
-34  = more  than  one  output  file 
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2.7  DG__VECR  - COMPUTE  GRID  RELATIVE  VECTOR 


This  subroutine  computes  a grid  diagnostic  vector  quantity.  The 
u and  v components  returned  in  UGRID  and  VGRID  are  in  grid  relative 
coordinates.  GDATTM , GLEVEL , GVCORD  and  GVECT  should  have  the 
values  entered  by  the  user. 

DG__VECR  ( GDATTM,  GLEVEL,  GVCORD,  GVECT,  PFUNC,  UGRID, 

VGRID,  IGX,  I GY , TIME,  LEVEL,  IVCORD,  PARMU , PARMV, 

I RET  ) 

Inpu t par  ame  t e r s : 

GDATTM  CHAR*  Input  date/ time 

GLEVEL  CHAR*  Input  level 

GVCORD  CHAR  * Input  vertical  coordinate 

GVECT  CHAR  * Diagnostic  function 

Ou  t pu  t par  ame  t e r s : 

PFUNC  CHAR*  Diagnostic  error  string 

UGRID  (IGX, I GY)  REAL  Output  u component  grid 

VGRID  (IGX, I GY)  REAL  Output  v component  grid 

IGX  INTEGER  Number  of  points  in  x dir 

IGY  INTEGER  Number  of  points  in  y dir 

TIME  (2)  CHAR*  Output  date/time 

LEVEL  (2)  INTEGER  Output  level 

IVCORD  INTEGER  Output  vertical  coordinate 

PARMU  CHAR*  Parameter  name  for  u component 

PARMV  CHAR*  Parameter  name  for  v component 

IRET  INTEGER  Return  code 

3 = user  typed  EXIT 
0 = normal  return 
-3  - parsing  table  is  empty 
-5  - output  grid  not  a vector 
-6  = wrong  number  of  operands 
-7  = grid  cannot  be  found 
-8  = grid  is  the  wrong  size 
-9  = incorrect  operands 
-10  = internal  grid  list  is  full 
-11  - operand  mu  st  be  a vector 
-12  = operand  mu  st  be  a scalar 
-13  = operand  must  be  from  file 
- 1 4 — DG_I NIT  not  initialized 
-15  = polar  grid  cent,  not  valid 
-16  = map  proj  is  invalid 
-17  = LEVEL  must  be  a layer 
-18  = TIME  must  be  a range 
-19  = invalid  operator 
-20  = stack  is  full 
-21  « stack  is  empty 
-22  = TIME  is  invalid 
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-23  = LEVEL  is  invalid 
-24  = IVCORD  is  invalid 
-26  = layer  of  layers  i 
-27  = time  range  layer 


s i nva lid 
i nva  1 i d 
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2 . 8 DG_VECT 


- CCMPUTE  VECTOR  GRID 


Thi s subrout ine 


grid  diagnostic  vector  quantity.  The 


u and  v components 

r e turned 

in  UGRID  and  VGRID  are  in  north 

relative  coordinates.  GDATTM , GLEVEL , GVCORD  and  GVECT  should  ha\e 

the  values  entered 

by  the  user. 

DG  VECT  ( GDATTM, 

GLEVEL , 

GVCORD,  GVECT,  PFUNC,  UGRID, 

VGRID, 
I RET  ) 

IGX,  I GY , 

TIME,  LEVEL,  IVCORD,  PARMU,  PARMV, 

I npu  t par  ame  t e r s : 

GDATTM 

CHAR* 

Input  date/t ime 

GLEVEL 

CHAR* 

Input  level 

GVCORD 

CHAR* 

Input  vertical  coordinate 

GVECT 

CHAR* 

Diagnostic  function 

Output  parameters: 

PFUNC 

CHAR* 

Diagnostic  error  string 

UGRID  (IGX.IGY) 

REAL 

Output  u component  grid 

VGRID  (IGX.IGY) 

REAL 

Output  v component  grid 

IGX 

INTEGER 

Number  of  points  in  x dir 

I GY 

INTEGER 

Number  of  points  in  y dir 

TIME  (2) 

CHAR* 

Output  date/time 

LEVEL  (2) 

INTEGER 

Ou  t pu  t level 

IVCORD 

INTEGER 

Output  vertical  coordinate 

PARMU 

CHAR* 

Parameter  name  for  u component 

PARMV 

CHAR* 

Parameter  name  for  v component 

I RET 

INTEGER 

Return  code 

3 = user  typed  EXIT 
0 = normal  return 
- 3 « GFUNC  is  blank 
-5  = output  grid  not  a vector 
-6  = wrong  number  of  operands 
-7  - grid  cannot  be  found 
-8  - grid  is  the  wrong  size 
-9  = incorrect  operands 
-10  = internal  grid  list  is  full 
-11  = operand  mu st  be  a vector 
-12  - operand  mu  st  be  a scalar 
-13  = operand  not  in  grid  file 

-14  = DG IN IT  not  initialized 

-15  = polar  grid  center  invalid 
-16  = map  proj  is  invalid 
-17  ■*  LEVEL  must  be  a layer 
-18  - TIME  must  be  a range 
-19  - invalid  operator 
-20  = stack  is  full 
-21  = stack  is  empty 
-22  « TIME  is  invalid 
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-23 

- LEVEL 

i s 

invalid 

-24 

- IVCORD  is 

invalid 

-26 

- layer 

of 

1 aye  r s i nva 1 i d 

-27 

- t ime 

rang 

e layer  i nva 1 i d 
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DM.J3EGS 

Re 
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s e 

arch 

DM—CHNG 

Ch 

an 

ge 

f 

i 1 e a c 

c 

ess 

EMJCLOS 

Cl 

o s 

e 

a 

EM  f i 1 

e 

DM-CRET 

Cr 

e a 

t e 

a 

IM  fi 

1 

e 

DM-CSRC 

Se 

t 

c 0 

nd 

i t i ona 

1 

sear 

ch 

DM_DALL 

De 

1 e 

t e 

by  r ow 

0 

r col 

umn 

DM-DCLH 

De 

1 e 

t e 

a 

col  umn 

head 

e r 

IM_DCSR 

De 

le 

t e 

c 

ond  i t i 

0 

na  1 s 

e a r c 

h 

DM_PDAT 

De 

1 e 

t e 

d 

a t a 

DM-DPSR 

De 

le 

t e 

P 

r ima  ry 

s e a r c 

h 

EM_DRWH 

De 

1 e 

t e 

a 

r ow  h 

e 

ad  e r 

em_fkey 

De 

t e 

rmi  n 

e key 

1 

o c a t i 

on 
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FI 
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wr 
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Re 
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Re 
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Lo 
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d 
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Fi 

nd 

n 

ex 

t r ow 

a 
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Op 

en 

a 

DM  file 
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P 
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f 
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DM_WDTR 

Write 

real  data 

DM-WFHC 

Write 

character  file 

DM_WFHI 

Write 

integer  file  he 

DM_WFHR 

Write 

real  file  heade 

DM_WRWH 

Write 

a r ow  header 
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Data  Management  (DM)  Library  Summary 

The  data  management  library  is  the  support  library  for  reading  and 
writing  all  GEMPAK  files.  In  general,  libraries  specific  to  the 
various  data  types  (SF,  SN,  GD)  should  be  used  by  the  applications 
programmer.  This  d o c ume n t a t i on  is  provided  to  assist  in  writing 
these  data-type-specific  subroutines. 

Each  EM  file  has  rows,  columns  and  parts.  Rows  and  columns  are 
identified  by  sequential  numbers.  Each  row  and  column  has  a 
header  containing  information  about  the  entire  row  or  column.  The 
keywords  defining  this  information  are  specified  when  the  data  set 
is  created  and  may  be  obtained  using  DM_JCEYS.  Header  information 
is  always  stored  as  an  array  of  integer  values.  For  station  data, 
the  rows  typically  contain  the  date/ time,  while  the  columns 
typically  contain  information  about  individual  stations.  Note 
that  not  all  station  data  is  stored  in  this  way.  For  example, 
ship  data  is  stored  in  a single  rowwith  time  and  station 
information  combined  in  a single  header. 

Parts  in  a DM  file  are  identified  by  name.  For  conventional  upper- 
air  data,  the  six  reports  (TTAA,  TTBB , PPBB,  TTCC , TTDD , PPDD)  are 
stored  as  six  parts. 

Data  in  a EM  file  are  identified  by  a row  number,  column  number  and 
part  name.  If  data  are  to  be  packed,  the  packing  information  must 
be  provided  when  the  file  is  created.  The  data  will  be  packed  and 
unpacked  within  the  DM  library,  so  the  programmer  can  access  the 
data  as  real  values  using  subroutines  DH— RDTR  and  DM_WDTR . 


Information  about  the  entire  file  may  be  stored  in  file  headers. 

This  information  is  stored  using  DM_WFHx  and  returned  using  DM__RFHx  . 


Subroutines  to  search  for  row  and  column  headers  meeting  certain 
criteria  are  also  available.  DMJSRC  is  used  to  define  a primary 
search.  The  conditions  for  this  search  must  always  be  met.  In 
addition,  conditional  searches  may  be  defined  using  DM_CSRC.  These 
conditional  searches  may  be  additive  or  subtractive,  meaning  that 
rows /columns  meeting  the  criteria  will  be  added  or  subtracted  from 
the  list  of  valid  rows/columns . When  using  these  subroutines, 

EM_ NEXT  will  return  the  numbers  of  the  next  row  and  column  meeting 
the  search  criteria.  The  applications  programmer  should  use  the 
data-specific  libraries  and  the  location  (LC)  library  to  search  DM 
data  sets.  DM^_SRCH  provides  a simple  search  whose  return  code  can 
be  used  to  determine  if  the  search  criteria  are  ever  met. 


The  subroutines  DM_LSTN,  DNLLTIM  and  DM_GTIM  are  provided  to 
simplify  access  to  EM  files  by  data-specific  libraries. 
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ERROR  MESSAGES: 


[EM 

-1] 

[DM 

-2] 

[DM 

-3] 

[DM 

-4] 

[DM 

-5] 

[DM 

-6] 

[DM 

-7] 

[EM 

-8] 

[DM 

-9] 

[DM 

-10] 

[EM 

-11] 

[DM 

-12] 

[DM 

-13] 

[DM 

-14] 

[DM 

-15] 

[DM 

-16] 

[DM 

-17] 

[DM 

-18] 

[DM 

-19] 

[DM 

-20] 

[DM 

-21] 

[DM 

-22] 

[EM 

-23] 

[DM 

-24] 

[DM 

-25] 

[DM 

-26] 

[EM 

-27  ] 

[DM 

-28] 

[DM 

-29] 

[DM 

-30] 

[DM 

-31] 

File  ...  could  not  be  created. 

File  ...  could  not  be  opened. 

Too  many  files  open. 

File  is  not  open. 

Invalid  dimension  sizes. 

Wr  ite  error. 

Read  error. 

Undefined  file  header. 

Invalid  row  or  column  location. 

Invalid  part  name . 

Undefined  row  or  column  header. 

No  more  row/ column  headers. 

No  write  access. 

I nva lid  key  name . 

Data  not  available. 

Invalid  data  packing  terms. 

Search  criteria  not  met. 

File  header  length  too  large. 

Error  packing/unpacking  data. 

File  is  not  a GEMPAK  EM  file. 

Incorrect  data  type. 

Too  many  searches  defined. 

File  was  created  on  a different  machine. 
Invalid  number  of  words  to  pack/unpack. 
Invalid  station  keywords. 

Invalid  delete  conditions. 

Invalid  time  keywords. 

Too  many  t ime  s . 

Invalid  file  header  name. 

Close  and  reopen  failed. 

Error  packing  or  unpacking  grid. 
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DM-JIEGS 

DMJCHNG 

EMJCLOS 

DM-CRET 

DM_CSRC 

IM-DALL 

EM_DCLH 

mLPCSR 

IM_DDAT 

DM_PPSR 

DM—PRWH 

EM—FKEY 

IMJWRT 

EMJGTIM 

DMJCEYS 

IM_LSTN 

EM—LTIM 

IM__NEXT 

IM—OPEN 

IM_PART 

EM_PNAM 

DM_PSRC 


( 

( 

( 

( 


( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 


EM  Library  Calls 
iflno,  / iret  ) 

iflno,  wrtflg,  shrflg,  / iret  ) 
iflno,  / iret  ) 

filnam,  iftype,  ifsrce,  nfhdrs,  fhdnam,  ifhlen, 
n r ow , nrkeys,  keyrow,  ncol,  nckeys,  keycol,  nprt 
lenhdr,  ityprt,  nparms,  maxprm,  prmnam,  iscale, 
nbits,  / iflno,  iret  ) 

iflno,  addsrc,  nkeys , keynam,  iloval,  ihival,  / 
iflno,  nkeys,  keynam,  iloval,  ihival,  / iret  ) 
iflno,  ipos,  / iret  ) 
iflno,  / iret  ) 

iflno,  i r ow , icol,  part,  / iret  ) 
iflno,  / iret  ) 
iflno,  ipos,  / iret  ) 
iflno,  keynam,  / type,  loc,  iret  ) 


iflno, 

/ 

iret  ) 

iflno, 

max  t im, 

/ n t ime  , t iml  s t , 

iret  ) 

iflno, 

/ 

nrkeys 

, k e y r ow , nckeys, 

keycol  , 

iret  ) 

iflno, 
i 1 s t a t 

/ 

> 

s t typ e 
i 1 c oun  , 

, ilstid,  ilst  nm , 
iret  ) 

i 1 s 1 a t , 

i 1 s 1 on 

iflno, 

/ 

d 1 1 y p e 

, i 1 da  t e , i 1 t ime , 

iret  ) 

iflno, 

/ 

i r ow, 

icol,  iret  ) 

filnam,  wrtflg,  shrflg,  / iflno, 
ncol,  nprt,  nfhdrs,  iret  ) 

i f type  , 

ifsrce 

iflno, 
i o f f s t 

pr  tn am , 
, nbits. 

/ 1 enhd  r , ityprt, 

iret  ) 

npa  rms  , 

p rmn  am 

iflno, 

/ 

nprt, 

p r tnam,  iret  ) 

iflno,  nkeys,  keynam,  iloval,  ihival,  / iret  ) 


i f h typ  , 

, prtnam, 
i o f f s t , 

iret  ) 


i 1 s e 1 v , 

n r ow, 
iscale, 
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DM_QDAT  ( i f 1 n o , i r ow , icol,  part,  / datflg,  iret  ) 

DM_JRCLH  ( iflno,  ipos,  / iheadr,  iret  ) 

DM_J£DTC  ( iflno,  irow,  icol,  part,  / idthdr,  cdata,  nchar,  iret  ) 

DM—RDTI  ( iflno,  irow,  icol,  part,  / idthdr,  idata,  nword,  iret  ) 

DM.-RDTR  ( iflno,  irow,  icol,  part,  / idthdr,  rdata,  nword,  iret  ) 

DM_JtFHC  ( iflno,  fhdnam,  mxchar,  / cheadr,  nchar,  iret  ) 

DMJRFHI  ( iflno,  fhdnam,  mxword,  / iheadr,  nword,  iret  ) 

DM.-RFHR  ( iflno,  fhdnam,  mxword,  / rheadr,  nword,  iret  ) 

DM_RRWH  ( iflno,  ipos,  / iheadr,  iret  ) 

DM—SRCH  ( iflno,  type,  nkey,  keyloc,  keyval,  / i rwc  1 , iret  ) 
DM.3CLH  ( iflno,  ipos,  iheadr,  / jpos,  iret  ) 

EftUVDTC  ( iflno,  irow,  icol,  part,  idthdr,  cdata,  nchar,  / iret  ) 

DM-WDTI  ( iflno,  irow,  icol,  part,  idthdr,  idata,  nword,  / iret  ) 

DMJVDTR  ( iflno,  irow,  icol,  part,  idthdr,  rdata,  nword,  / iret  ) 

DM_WFHC  ( iflno,  fhdnam,  cheadr,  nchar,  / iret  ) 

DM_WFHI  ( iflno,  fhdnam,  iheadr,  nword,  / iret  ) 

DM_WFHR  ( iflno,  fhdnam,  rheadr,  nword,  / iret  ) 


DM-WRWH  ( iflno,  ipos,  iheadr,  / jpos,  iret  ) 
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3 . 1 DMJBEGS  - RESET  SEARCH 


This  subroutine  restarts  a search  at  the  beginning  of  a 
DM_BEGS  ( IFLNO,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER  File  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
-4  - file  not  open 


EM  file. 


3-7 


DATA  MANAGEMENT  (EM)  LIBRARY 


3.2  DM—CHNG  - CHANGE  FILE  ACCESS 


This  subroutine  changes  the  access  permissions  for  a EM  file. 

If  necessary,  the  file  is  closed  and  reopened  with  the  requested 
access  . 

EMLXHNG  ( IFLNO,  WRTFLG,  SHRFLG , I RET  ) 

Input  parameters: 

IFLNO  INTEGER 

WRTFLG  LOGICAL 

SHRFLG  LOGICAL 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = n o rma  1 return 
-30  = close  & open  failed 


File  n umb  e r 
Wr  i t e flag 
Shared  access  flag 
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3.3  DMJCLOS  - CLOSE  A EM  FILE 

This  subroutine  closes  a EM  file  and  deallocates  the  file  number 
DM-CLOS  ( IFLNO,  I RET  ) 


Input  parameters: 
IFLNO 

INTEGER 

File  numbe r 

Output  parameters: 
I RET 

INTEGER 

Return  code 

0 - normal  return 
-4  * file  is  not  open 

-6  - wr  ite  error 
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3.4  DM_CRET  - CREATE  A EM  FILE 


Tn4cc^Ubr°Ut ine  creates  a new  DM  file.  The  arrays  PRMNAM,  ISCALE, 
lUrrST,  and  NBITS  must  be  two-dimensional  arrays  in  the  calling 
program  whose  first  dimension  is  MAXPRM.  After  the  file  is 
created,  it  is  left  open  with  write  access. 


DM_CRET  ( FILNAM,  IFTYPE,  IFSRCE,  NFHDRS , FHDNAM,  IFHLEN,  IFHTYP 

NRCW,  NRKEYS , KEYROW,  NCOL , NCKEYS , KEYCOL , NPRT, 

PRTNAM,  LENHDR , ITYPRT,  NPARMS , MAXPRM,  PRMNAM,  ISCALE 

IOFFST , NBITS,  IFLNO,  IRET  ) 


Input  parameters: 


F I LNAM 

CHAR* 

IFTYPE 

INTEGER 

IFSRCE 

INTEGER 

NFHDRS 

INTEGER 

FHDNAM 

(NFHDRS) 

CHAR* 4 

I FHLEN 

(NFHDRS) 

INTEGER 

IFHTYP 

(NFHDRS) 

INTEGER 

NROV 

INTEGER 

NRKEYS 

INTEGER 

KEYROW 

(NRKEYS) 

CHAR* 4 

NCOL 

INTEGER 

NCKEYS 

INTEGER 

KEYCOL 

(NCKEYS) 

CHAR *4 

NPRT 

INTEGER 

PRTNAM 

(NPRT) 

CHAR*  4 

LENHDR 

(NPRT) 

INTEGER 

ITYPRT 

(NPRT) 

INTEGER 

NPARMS 

(NPRT) 

INTEGER 

MAXPRM 

INTEGER 

PRMNAM 

CHAR* 

(MAXPRM,  NPRT) 

ISCALE 

INTEGER 

(MAXPRM,  NPRT) 

IOFFST 

INTEGER 

(MAXPRM,  NPRT) 

NBITS 

INTEGER 

(MAXPRM,  NPRT) 


Ou  t pu  t par  ame  t e r s : 

IFLNO  INTEGER 

INTEGER 


File  name 
File  type 
File  source 

N umb er  of  file  headers 

File  header  names 

File  header  lengths 

File  header  data  types 

Number  of  rows 

Number  of  row  keys 

Row  key  names 

N umb e r of  col umn s 

Number  of  column  keys 

Column  key  names 

Number  of  parts 

Part  name  s 

Part  header  lengths 

Part  data  t yp  e s 

Number  of  parameters  / part 

Maximum  number  of  parameters 

Parameter  names 

Scaling  for  packed  real 

Offset  for  packed  real 

Number  of  bits  for  packed  real 


rile  numbe  r 
Re  turn  code 


0 

- 1 
-3 
- 5 
-6 
16 


normal  return 
file  cannot  be  created 
too  many  files  open 
invalid  dimension  sizes 
wr  ite  error 
invalid  packing  terms 
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3.5  DM—CSRC  - SET  CONDITIONAL  SEARCH 


This  subroutine  defines  criteria  for  a conditional  search.  The 
conditional  search  will  be  made  if  the  primary  search  succeeds. 


DMJCSRC  ( 

IFLNO, 

ADDSRC,  NKEYS, 

KEYNAM,  ILOVAL,  IHIVAL,  I RET  ) 

Input  parameters: 
IFLNO 
ADDSRC 
NKEYS 

KEYNAM  (NKEYS) 

INTEGER 

LOGICAL 

INTEGER 

CHARM 

File  numbe  r 
Additive  search  flag 
Number  of  keys  used  in  search 
Key  names 

ILOVAL 

(NKEYS) 

INTEGER 

L o w values 

IHIVAL 

(NKEYS) 

INTEGER 

High  values 

Output  par 
I RET 

ame  t e r s 

INTEGER 

Return  code 

0 = normal  return 
-4  «=  file  not  open 
-14  = invalid  key  name 
-22  - too  many  searches 
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3.6  OvLJDALL  - DELETE  BY  RCW  OR  COLUMN 


This  subroutine  deletes  data 
given  search  criteria.  Data 
with  the  appropriate  headers, 
into  large  free  blocks  and  is 
parts  using  DM_DDAT . 


for  all  locations  which  match  the 
for  all  parts  are  deleted  along 
Th is  subroutine  packs  the  data 
preferred  to  deleting  single 


DM_PALL  ( IFLNO,  NKEYS , KEYNAM,  ILOVAL,  IHIVAL,  IRET  ) 


Input  parameters: 

IFLNO  INTEGER 

NKEYS  INTEGER 

KEYNAM  (NKEYS)  CHARM 
ILOVAL  (NKEYS)  INTEGER 
IHIVAL  (NKEYS)  INTEGER 

Output  parameters: 

1 RET  INTEGER 


File  numbe  r 

Number  of  keys  in  search 
Key  names 
Minimum  values 
Maximum  values 


Return  code 

0 = normal  return 
-4  = file  not  open 
- 6 = wr  ite  error 
-13  = no  write  access 
-17  = search  criteria  not  met 
-26  = invalid  delete  conditions 
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3 . 7 DMJXLH 


This  subroutine  d 

DM_PCLH  ( I FLNO , 

Input  parameters: 
I FLNO 
IPOS 

Output  parameters 
I RET 
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DELETE  A COLUMN  HEADER 


letes  a column  header  from  a DM  file. 
IPOS,  IRET  ) 


INTEGER  File  number 

INTEGER  Location 


INTEGER  Return  code 


0 

tat 

no  rma  1 return 

-4 

- 

file  is  not  open 

-6 

« 

wr  ite  error 

-9 

« 

i nva lid  col umn 

-13 

no  wr  ite  access 
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3.8  DM_X>CSR  - DELETE  CONDITIONAL  SEARCH 

Th is  subroutine  deletes  the  conditional  searches  for  a 
DM_DCSR  ( IFLNO,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER  File  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
-4  = file  not  open 


DM  file. 
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3.9  DM-DDAT  - DELETE  DATA 

Th is  subroutine  deletes  data  for  a single  r ow , col umn  and  part 
f r om  a EM  file.  If  an  entire  col umn  or  r ow  is  to  be  deleted,  the 
subroutine  IM_DALL  should  be  used. 

DM-DDAT  ( IFLNO,  I ROW,  I COL,  PART,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER 

I ROW  INTEGER 

I COL  INTEGER 

PART  CHAR* 4 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
-4  - file  not  open 
- 6 - wr  ite  error 
-7  - read  error 
-9  - invalid  row/column 
-10  = invalid  part  name 
-13  - no  write  access 


File  number 
Row  number 
Column  number 
Part  n ame 
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3.10  DM.J3PSR  - DELETE  PRIMARY  SEARCH 

This  subroutine  deletes  the  primary  search  for  a EM  file. 
DVLPPSR  ( IFLNO,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER  File  number 

Output  parameters: 

I RET  INTEGER  Return  code 

0 = normal  return 
-4  = file  not  open 
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3.11  DfvLPRWH 


This  subroutine  d 

EMJDRWH  ( I FLNO  , 

Input  parameters: 
I FLNO 
IPOS 

Output  parameters 
I RET 
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DELETE  A RC*V  HEADER 


1 e t e s a r ow 

header  fr om  a EM  file. 

IPOS,  I RET  ) 

INTEGER 

File  numbe r 

INTEGER 

Location 

INTEGER 

Re  turn  code 

0 = normal  return 
-4  «=  file  is  not  open 
- 6 = wr  ite  error 
-9  = invalid  location 
“13  = no  write  access 
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3.12  DM_FKEY 


This  subroutine  f 
key.  If  the  key 

DM^FKEY  ( IFLNO, 

Input  parameters: 
IFLNO 
KEYNAM 

Output  parameters 
TYPE 
LOC 
I RET 


- DETERMINE  KEY  LOCATION 


inds  the  type  and  location  of  a row  or  column 
is  not  found,  the  location  is  set  to  0. 

KEYNAM,  TYPE,  LOC,  I RET  ) 


File  number 
Key  name 


Type  : ROW  or  COL 
Key  location 
Return  code 

0 = normal  return 
-4  - file  is  not  open 
-14  - invalid  key  name 


INTEGER 

CHARM 


CHAR* 
INTEGER 
I NTEGER 
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3.13  DMJFWRT 

Thi s subroutine  f 

DMJFWRT  ( I FLNO , 

Input  parameters: 
I FLNO 

Output  parameters 
I RET 
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FLUSH  WRITE  BUFFERS 


ushes  the  write  buffers  for  a DM  file. 
I RET  ) 


INTEGER  File  number 


INTEGER  Return  code 

0 - n o rma  1 return 
-4  - file  not  open 
- 6 - wr  ite  error 
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3.14  DM—GTIM  - RETURN  LIST  OF  TIMES 


This  subroutine  returns  a list  of  the  GEMPAK  date/times  found  in 
the  file.  The  times  are  sorted  from  earliest  to  latest. 

DM_GTIM  ( IFLNO,  MAXTIM,  NTIME , TIMLST,  IRET  ) 

I npu  t par  ame  t e r s : 

IFLNO  INTEGER  File  number 

MAXTIM  INTEGER  Max  number  of  times  to  return 


Output  par  ame  t e r s : 

NTIME  INTEGER 

TIMLST  (NTIME)  CHAR*15 
IRET  INTEGER 


Number  of  times  returned 
List  of  t ime  s 
Return  code 

0 « normal  return 
-4  « file  not  open 
-27  invalid  time  keywords 
-28  « too  many  times 
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3.15  DMJCEYS  - RETURN  ROW  AND  COLUMN  KEYS 

This  subroutine  returns  the  row  and  column  keys  in  a EM  file. 
DMJCEYS  ( IFLNO,  NRKEYS , KEYROW,  NCKEYS , KEYCOL , I RET  ) 

Input  parameters: 


IFLNO 

INTEGER 

File  number 

Output  par ame  t e r s : 

NRKEYS 

INTEGER 

Number  of  row  keys 

KEYROW  (NRKEYS) 

CHARM 

Row  keys 

NCKEYS 

INTEGER 

Number  of  column  keys 

KEYCOL  (NCKEYS) 

CHAR* 4 

Column  keys 

I RET 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  is  not  open 
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3.16  DM.XSTN  - LOCATE  STATION  IDENTIFIER 


This  subroutine  finds  the  location  of  the  station  keywords.  Both 
SLAT  and  SLON  must  be  row  or  column  keys.  The  locations  of  the 
keywords  STID,  STNM,  SELV,  STAT  and  COUN  are  also  checked.  If 
present,  they  must  be  the  same  type  as  the  SLAT  and  SLON  keys.  If 
a key  is  not  found,  the  location  is  set  to  0. 

DM_LSTN  ( IFLNO,  STTYPE , ILSTID,  ILSTNM,  ILSLAT,  ILSLON, 

ILSELV,  ILSTAT,  ILCOUN,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER  File  number 


Location  type:  RCW  or  COL 

Location  of  STID 
Location  of  STNM 
Location  of  SLAT 
Location  of  SLON 
Location  of  SELV 
Location  of  STAT 
Location  of  COUN 
Return  code 

0 - n o rma 1 return 
-4  - file  not  open 
-25  - invalid  station  keywords 


Output  parameters: 


STTYPE 

CHAR* 

ILSTID 

INTEGER 

ILSTNM 

INTEGER 

ILSLAT 

INTEGER 

ILSLON 

INTEGER 

ILSELV 

INTEGER 

ILSTAT 

INTEGER 

ILCOUN 

INTEGER 

I RET 

I NTEGER 
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3.17  DM.J.TIM  - LOCATE  DATE/TIME 


This  subroutine  finds  the  location  of  the  DATE  and  TIME  keywords 
in  a DM  file.  Both  keys  mu  s t be  r ow  keys  or  col umn  keys. 

DM-LTIM  ( IFLNO,  DTTYPE , ILDATE,  ILTIME , I RET  ) 

Input  parameters: 

IFLNO  INTEGER  File  number 


Output  parameters: 
DTTYPE 
ILDATE 
ILTIME 
I RET 


CHAR* 

INTEGER 

INTEGER 

INTEGER 


Location  type:  RCW  or  COL 

Location  of  DATE 
Location  of  TIME 
Return  code 

0 = normal  return 
-4  = file  not  open 
-27  = invalid  time  keywords 
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3.18  IM-NEXT  - FIND  NEXT  ROW  AND  COLUMN 


This  subroutine  returns  the  location  of  the  next  row  and  column 
meeting  the  search  criteria. 

DM-NEXT  ( IFLNO,  IRCW,  I COL,  I RET  ) 


Input  parameters: 

IFLNO 

INTEGER 

File  numbe  r 

Output  par  ame  t e r s : 

I ROW 

INTEGER 

Row  number 

I COL 

INTEGER 

Column  number 

I RET 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  not  open 
-17  « search  criteria 
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3.19  DM_OPEN  - OPEN  A DM  FILE 


This  subroutine  opens  a data  management  (DM)  file. 


DMJOPEN  ( FILNAM, 

WRTFLG, 

SHRFLG , 

IFLNO,  IFTYPE,  IFSRCE,  NROW, 

NCOL  , 

NPRT, 

NFHDRS , 

IRET  ) 

Input  parameters: 

FILNAM 

CHAR* 

File  name 

WRTFLG 

LOGICAL 

Wr  ite  access  flag 

SHRFLG 

LOGICAL 

Shared  file  flag 

Output  parameters: 

IFLNO 

INTEGER 

File  numb  e r 

IFTYPE 

INTEGER 

File  type 

IFSRCE 

INTEGER 

File  source 

NROW 

INTEGER 

Number  of  rows 

NCOL 

INTEGER 

Number  of  columns 

NPRT 

INTEGER 

Number  of  parts 

NFHDRS 

INTEGER 

Number  of  file  headers 

IRET 

INTEGER 

Re  turn  code 

0 = no rma 1 return 
-2  = file  cannot  be  opened 
-3  = too  many  files  open 
- 6 = wr  i t e error 
-7  = read  error 
-23  = wrong  machine  type 
-32  = invalid  machine  for  write 
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3.20  DM_PART  - RETURN  PART  INFORMATION 

This  subroutine  returns  information  for  a specific  part. 

DM_J>ART  ( IFLNO,  PRTNAM,  LENHDR , ITYPRT , NPARMS , PRMNAM,  I SCALE , 
IOFFST , NBITS , IRET  ) 

Input  parameters: 


IFLNO 

INTEGER 

File  numb  e r 

PRTNAM 

Output  parameters: 

CHARM 

Part  name 

LENHDR 

INTEGER 

Length  of  data  header 

ITYPRT 

INTEGER 

Data  type 

NPARMS 

INTEGER 

Number  of  parameters 

PRMNAM 

(NPARMS) 

CHAR*  4 

Parameter  names 

I SCALE 

(NPARMS) 

INTEGER 

Scaling  te  rm 

IOFFST 

(NPARMS) 

INTEGER 

Offset 

NBITS 

(NPARMS) 

INTEGER 

Numbe  r of  bits 

IRET 

INTEGER 

Return  code 

0 « normal  return 
-4  * file  not  open 
-10  = invalid  part  name 
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3.21  EM—PNAM  - RETURN  PART  NAMES 


This  subroutine  returns  the  names  of  all  the  parts  in  a 
DM^PNAM  ( IFLNO,  NPRT , PRTNAM,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER  File  number 


Output  parameters: 

NPRT  INTEGER 

PRTNAM  (NPRT)  CHARM 
I RET  INTEGER 


Numb er  of  parts 
Part  names 
Return  code 

0 = normal  return 
-4  = file  not  open 


DM  file. 
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3.22  DM_J>SRC  - SET  PRIMARY  SEARCH 


This  subroutine  defines  criteria  for  the  primary  search.  If 
the  result  of  this  primary  search  is  false  for  any  location,  no 
conditional  search  will  be  made. 

EMJ’SRC  ( IFLNO,  NKEYS , KEYNAM,  ILOVAL,  IHIVAL,  IRET  ) 

Input  parameters: 

IFLNO 
NKEYS 

KEYNAM  (NKEYS) 

ILOVAL  (NKEYS) 

IHIVAL  (NKEYS) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  - file  not  open 
-14  = invalid  key  name 


INTEGER  File  number 

INTEGER  Number  of  keys  used  in  search 

CHAR *4  Key  names 

INTEGER  Low  values 

INTEGER  Hi  eh  values 
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3.23  DM—QDAT 

Th is  subroutine  s 

row,  column  and  p 

EMjQDAT  ( I FLNO  , 

Input  parameters: 
I FLNO 
I ROW 
I COL 
PART 

Output  parameters 
DATFLG 
I RET 


CHECK  FOR  DATA 


ts  a flag  indicating  wh ether  data  for  a given 
rt  is  stored  in  a DM  file. 

I ROW,  I COL,  PART,  DATFLG,  I RET  ) 


INTEGER 

File  numb  e r 

INTEGER 

R ow  n umb  e r 

INTEGER 

Column  number 

CHAR* 4 

Part  name 

LOGICAL 

Data 

present  flag 

INTEGER 

Return  code 

0 

= no  rma  1 return 

-4 

= file  not  open 

-6 

= wr  i t e error 

-7 

= read  error 

-9 

= i nva lid  location 

- 10 

= invalid  part  nam 
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3.24  DM_RCLH  - READ  A COLUMN  HEADER 


This  subroutine  reads  a column  header  from  a EM  file. 
OVLJICLH  ( IFLNO,  IPOS,  IHEADR,  I RET  ) 


Input  parameters: 

IFLNO 

INTEGER 

File  numbe  r 

IPOS 

INTEGER 

Lo  c a t i on 

Ou  t p u t par  ame  t e r s : 

IHEADR  (*) 

INTEGER 

Header  array 

I RET 

INTEGER 

Re  turn  code 

0 = normal  return 
-4  = file  is  not  op 
-9  = invalid  column 
-11  = undefined  head 
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3.25  DM—RDTC 


- READ  CHARACTER  DATA 


This  subroutine  reads  characte 

r data  f r om  a EM  file. 

DM_J*DTC  ( I FLNO  , 

I ROW,  I COL, 

PART,  IDTHDR,  CDATA,  NCHAR, 

Input  parameters: 

I FLNO 

INTEGER 

File  numbe  r 

I ROW 

INTEGER 

Row  number 

I COL 

INTEGER 

Column  number 

PART 

CHARM 

Part  name 

Output  par  ame  t e r s : 

IDTHDR  (*) 

INTEGER 

Data  header 

CDATA 

CHAR* NCHAR 

Data 

NCHAR 

INTEGER 

Leng  th  of  string 

I RET 

INTEGER 

Return  code 

0 » no rma  1 return 
-4  = file  not  open 
- 6 = wr  ite  error 
-7  = read  error 
-9  = invalid  location 
-10  » invalid  part  name 
-15  - data  not  available 
-21  - incorrect  data  type 
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3.26  OODT I 


This  subroutine  re 

DM_JtDTI  ( IFLNO. 

Input  parameters: 
IFLNO 
I ROW 
I COL 
PART 

Output  parameters: 
IDTHDR  (*) 

I DATA  ( NWORD  ) 
NTORD 
I RET 


READ  INTEGER  DATA 


ads  integer  data  fr om  a EM  file. 

IROW,  ICOL,  PART.  IDTHDR,  IDATA,  NWORD,  IRET  ) 


INTEGER  File  number 

INTEGER  Row  number 

INTEGER  Column  number 

CHAR*4  Part  name 


INTEGER 

INTEGER 

INTEGER 

INTEGER 


Da  ta  header 
Da  t a 

Length  of  data  array 


Re  t 

urn  code 

0 

= 

normal  return 

-4 

«* 

file  not  open 

-6 

= 

wr  i t e error 

-7 

= 

read  error 

-9 

= 

i nva lid  location 

-10 

- 

invalid  part  name 

-15 

« 

data  not  ava i 1 abl e 

-21 

= 

incorrect  data  type 
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3.27  DM—RDTR  - READ  REAL  DATA 


This  subroutine  reads  real  data  from  a EM  file. 


DVLJ1DTR  ( I FLNO , 

I ROW,  I COL, 

PART,  IDTHDR,  RDATA,  NWDRD, 

Input  parameters: 

I FLNO 

INTEGER 

File  number 

IROvV 

INTEGER 

Row  number 

I COL 

INTEGER 

Column  number 

PART 

CHARM 

Part  name 

Output  parameters 

IDTHDR  (*) 

INTEGER 

Data  header 

RDATA  (NW3RD) 

REAL 

Data 

NTORD 

INTEGER 

Length  of  data  array 

I RET 

INTEGER 

Re  turn  code 

0 - normal  return 
-4  - file  not  open 
- 6 - wr  ite  error 
-7  - read  error 
-9  - invalid  location 
-10  - invalid  part  name 
-15  - data  not  availabl 
-21  - incorrect  data  ty 
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3.2  8 DM_RFHC  - READ  CHARACTER  FILE  HEADER 


This  subroutine  reads  a character  file  header  from  a DM  file, 
length  of  the  file  header  must  be  less  than  MXCHAR . 


DM_RFHC  ( IFLNO,  FHDNAM,  MXCHAR,  CHEADR , NCHAR , I RET  ) 


Inpu  t par  ame  t e r s : 

IFLNO  INTEGER 

FHDNAM  CHAR  *4 

MXCHAR  INTEGER 


Ou  t pu  t par  ame  t e r s : 
CHEADR 
NCHAR 
I RET 


CHAR* NCHAR 

INTEGER 

INTEGER 


File  numb  e r 

File  header  name 

Maximum  characters  to  return 


File  header 
He  ader  length 
Re  turn  code 


0 

= 

no  rma  1 

-4 

- 

file  no 

-6 

= 

wr  i t e e 

-7 

- 

read  e r 

-8 

und  e f i n 

-18 

= 

file  he 

-21 

- 

i nc  o r r e 

-29 

= 

i nva 1 i d 

return 
t open 
r r o r 
r o r 

ed  file  header 
ader  too  long 
c t data  t y p e 
file  hd  r name 


The 
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3.29  DM^RFHI  - READ  INTEGER  FILE  HEADER 


This  subroutine  reads  an  integer  file  header  from  a DM  file.  The 
length  of  the  file  header  mu st  be  less  than  MXWORD . 

DMJIFHI  ( IFLNO,  FHDNAM,  MXttORD,  IHEADR,  NWORD,  I RET  ) 

Input  par  ame  t e r s : 

IFLNO  INTEGER  File  number 

FHDNAM  CHAR *4  File  header  name 

MXM)RD  INTEGER  Maximum  words  to  return 


Output  pa  r ame  t e r s : 

IHEADR  (NWRD)  INTEGER  File  header 

NWORD  INTEGER  Header  length 

I RET  INTEGER  Return  code 

0 = normal  return 
-4  = file  not  open 
- 6 = wr  ite  error 
-7  = read  error 
-8  undefined  file  header 
-18  - file  header  too  long 
-21  - incorrect  data  type 
-29  - invalid  file  hdr  name 
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3.30  DM_J*FHR  - READ  REAL  FILE  HEADER 


This  subroutine  reads  a real  file  header  from  a EM  file.  The 
length  of  the  file  header  mu st  be  less  than  MXWORD . 


DM__RFHR  ( I FLNO , 

FHDNAM,  MXWORD, 

RHEADR,  NWORD,  I RET  ) 

Input  parameters: 

I FLNO 

INTEGER 

File  numbe r 

FHDNAM 

CHARM 

File  header  n ame 

MXWDRD 

INTEGER 

Maximum  words  to 

return 

Output  parameters: 

RHEADR  (NWORD) 

REAL 

File  header 

NWORD 

INTEGER 

Header  length 

I RET 

INTEGER 

Return  code 

0 = norma  1 r e t u 

r n 

-4  = file  not  op 

en 

-6  = wr  ite  error 

-7  = read  error 

-8  = file  header 

und  e f i ned 

-18  - file  header 

too  1 ong 

-21  = incorrect  d 

a t a type 

-29  = inva lid  f i 1 

e hdr  name 
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3.31  DM_RRWH 


Thi s subrout ine  r 

DM_RRWH  ( I FLNO , 

Input  par  ame  t e r s : 
I FLNO 
IPOS 

Output  parameters 
I HEAD R (*) 

I RET 


DATA  MANAGEMENT  (EM)  LIBRARY 


READ  A ROW  HEADER 


ads  a r ow  header  fr om  a EM  file. 
IPOS,  IHEADR,  IRET  ) 


File  numb  e r 
Location 


He  ad  e r array 
Return  code 

0 « norma  1 return 
-4  = file  is  not  open 
- 9 = i nva lid  r ow 
-11  = undefined  header 


INTEGER 

INTEGER 


INTEGER 

INTEGER 
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3.32  DM—SRCH  - FIND  PARTICULAR  ROW  OR  COLUMN 


Th is  subroutine  searches  a EM  file  for  r ows  or  col umn  s wh  i c h 
match  the  given  input  values. 

DM_SRCH  ( IFLNO,  TYPE,  NKEY , KEYLOC,  KEYVAL , IRWCL,  I RET  ) 
Input  parameters: 


IFLNO 

INTEGER 

File  numbe  r 

TYPE 

CHAR* 

Dimension  type  : RCW  or  COL 

NKEY 

INTEGER 

Number  of  keys  to  search 

KEYLOC  (NKEY) 

INTEGER 

Key  locations 

KEYVAL  (NKEY) 

INTEGER 

Key  values 

Output  parameters: 

IRWCL 

INTEGER 

Search  location 

IRET 

INTEGER 

Return  code 

0 = n o rma  1 return 
-4  = file  is  not  open 
-17  - search  criteria  not  met 
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3.33  EM3CLH  - WRITE  A COLUMN  HEADER 


This  subroutine  writes  a column  header  to  a EM  file.  If  the  value 
for  IPOS  is  0,  the  next  available  location  will  be  used.  The 
variables  contained  in  the  row  headers  can  be  determined  using 
EMJCEYS. 

DMJMCLH  ( IFLNO,  IPOS,  IHEADR , JPOS,  I RET  ) 

Input  parameters: 

IFLNO  INTEGER 

IPOS  INTEGER 

IHEADR  (*)  INTEGER 

Output  par  ame  t e r s : 

JPOS  INTEGER  Actual  header  location 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  * file  is  not  open 
- 6 - wr  ite  error 
-9  - invalid  location 
- 1 2 - no  mo  re  col umn  headers 
-13  - no  write  access 


File  numbe  r 
Location 
Header  array 
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3.34  DMJADTC  - WRITE  CHARACTER  DATA 


This  subroutine  writes  character  data  to  a EM  file. 

DM_WDTC  ( IFLNO,  I ROW,  I COL,  PART,  IDTHDR,  CDATA,  NCHAR , I RET  ) 

Input  parameters: 

IFLNO  INTEGER 

I ROW  INTEGER 

I COL  INTEGER 

PART  CHAR* 4 

IDTHDR  (*)  INTEGER 

CDATA  CHAR* NCHAR 

NCHAR  INTEGER 

Output  parameters: 

I RET  INTEGER  Return  code 

0 « n o rma  1 return 
-4  - file  not  open 
- 6 - wr  ite  error 
-9  - invalid  row  or  column 
-10  *=  invalid  part  name 
- 1 3 — no  wr  ite  access 
-21  - incorrect  data  type 


File  numbe  r 
Row  number 
Col  umn  n umb  e r 
Part  name 
Data  header 
Data 

Length  of  string 
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3.35  DM_WDT  I - WR  I TE  I NTEGER  DATA 


This  subroutine  writes  integer  data  to  a EM  file. 
DMJWDTI  ( IFLNO,  IRCW,  ICOL,  PART,  IDTHDR,  IDATA 


Input  parameters: 
IFLNO 
IRCW 
ICOL 
PART 

IDTHDR  (*) 
IDATA  (NWORD) 
NWDRD 


INTEGER 

INTEGER 

INTEGER 

CHARM 

INTEGER 

INTEGER 

INTEGER 


File  number 
Row  number 
Column  number 
Part  n ame 
Data  header 
Data 

Leng  th  of  data 


Output  parameters: 
I RET 


INTEGER 


Re  t 

urn  code 

0 

- 

n o rma  1 r 

-4 

- 

file  not 

-6 

- 

wr  i t e e r 

-9 

- 

i nva 1 i d 

-10 

- 

i nva 1 i d 

-13 

- 

no  wr  i t e 

-21 

* 

incorrec 

, NWORD , I RET  ) 


array 


e t urn 
open 
r o r 

r ow  or  col  umn 
part  name 
access 
t data  type 
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3.36  DM_WDTR 


This  subroutine  wr 

CMJiVDTR  ( IFLNO, 

Inpu  t par  ame  t e r s : 
IFLNO 
I ROW 
I COL 
PART 

IDTHDR  (*) 

RDATA  (NWORD) 
NWORD 

Output  parameters: 
I RET 


WRITE  REAL  DATA 


ites  real  data  to  a EM  file. 

I ROW,  I COL,  PART,  IDTHDR,  RDATA,  NWORD,  I RET  ) 


INTEGER 

INTEGER 

INTEGER 

CHARM 

INTEGER 

REAL 

INTEGER 


File  numbe  r 
Row  number 
Column  number 
Part  n ame 
Data  header 
Data 

Length  of  data  array 


INTEGER  Return 

0 - 
-4  = 
-6  - 
-9  - 
-10  - 
-13  - 
-21  - 


code 


norma 

1 

r 

e 

tur 

n 

file 

n 

0 

t 

ope 

n 

write 

e 

r 

r 

o r 

i nva  1 

i 

d 

r 

ow 

o r 

col  umn 

i nva  1 

i 

d 

P 

art 

n 

ame 

no  wr 

i 

t 

e 

a c c 

e s 

s 

i nc  o r 

r 

e 

c 

t 

da 

t a 

type 
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3.37  DM_WFHC  - WRITE  CHARACTER  FILE  HEADER 


This  subroutine  writes  a character  file  header  to  a DM  file. 

Th e length  of  the  file  header  mu st  be  less  than  the  length  given 
wh  en  the  file  wa  s created.  Wh  en  the  file  header  is  read,  the 
length  input  in  this  subroutine  will  be  returned. 


DMWFHC  ( I FLNO  , 

FHDNAM,  CHEADR,  NCHAR,  I RET  ) 

Input  parameters: 
I FLNO 

INTEGER 

File  numb  e r 

FHDNAM 

CHAR*  4 

File  header  name 

CHEADR 

CHAR* NCHAR 

File  header 

NCHAR 

INTEGER 

Header  length 

Output  parameters 
I RET 

INTEGER 

Return  code 

0 = normal  return 
-4  = file  not  open 
- 6 = wr  ite  error 
-7  = read  error 
-13  = no  wr  ite  access 
-18  = file  header  too  long 
-21  = incorrect  data  type 
-29  = invalid  file  hdr  name 
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3.3  8 DM_WFHI  - WRITE  INTEGER  FILE  HEADER 


This  subroutine  writes  an  integer  file  header  to  a DM  file.  The 
length  of  the  file  header  must  be  less  than  the  length  given  when 
the  file  wa s created.  Wh en  the  file  header  is  read,  the  length 
input  in  this  subroutinewill  be  returned. 


DM_WFHI  ( IFLNO,  FHDNAM,  IHEADR , NWORD,  I RET  ) 


Input  parameters: 

IFLNO  INTEGER 

FHDNAM  CHAR  *4 

IHEADR  (NWORD)  INTEGER 
NWORD  INTEGER 

Output  parameters: 

I RET  INTEGER 


File  numbe  r 
File  header  name 
File  header 
Header  length 


Re  turn  code 

0 = normal  return 
-4  = file  not  open 
-6  = write  error 
-7  = read  error 
-13  = no  write  access 
-18  = file  header  too  long 
-21  = incorrect  data  type 
-29  = invalid  file  hdr  name 
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3.39  DM_WFHR  - WRITE  REAL  FILE  HEADER 


This  subroutine  writes  a real-valued  file  header  to  a DM  file.  T 
length  of  the  file  header  must  be  less  than  the  length  given  when 
the  file  wa  s created.  Wh  en  the  file  header  is  read,  the  length 
input  in  this  subroutine  will  be  returned. 

DM-WFHR  ( IFLNO,  FHDNAM,  RHEADR , NWORD,  I RET  ) 


Input  parameters: 

IFLNO  INTEGER 

FHDNAM  CHAR  *4 

RHEADR  (NWORD)  REAL 
NWGRD  INTEGER 

Ou  t pu  t par  ame  t e r s : 

I RET  INTEGER 


File  numbe  r 
File  header  name 
File  header 
Header  length 


Return  code 


0 

= 

no  rma  1 return 

-4 

= 

file  not  open 

-6 

= 

wr  ite  error 

-7 

= 

read  error 

-13 

- 

no  wr  ite  access 

-18 

= 

file  header  too  long 

-21 

= 

incorrect  data  type 

-29 

invalid  file  hdr  name 
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3.40  DMWRWH  - WRITE  A ROW  HEADER 


This  subroutine  writes  a row  header  to  a EM  file.  If  the  value 

for  IPOS  is  0,  the  next  available  location  will  be  used.  The 

variables  contained  in  the  row  headers  can  be  determined  using 
n\yf  JfPVC  ° 


DMJVRWH  ( IFLNO,  IPOS,  IHEADR , JPOS,  I RET  ) 


Input  parameters: 

IFLNO  INTEGER 

IPOS  INTEGER 

IHEADR  (*)  INTEGER 

Output  parameters: 

JPOS  INTEGER 

I RET  INTEGER 


File  numb  e r 
Location 
Header  array 


Actual  header  location 
Re  turn  code 

0 = normal  return 
-4  = file  is  not  open 
“6  = wr  i t e error 
-9  — invalid  r ow 
- 1 2 = no  mo  re  r ow  headers 
-13  = no  write  access 
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Data  Packing  (DP)  Library  Summary 


Ihe  data  packing  library  provides  subroutines  for  packing  real  data 
values  into  a bit  string  and  for  unpacking  these  data.  The  bit 
string  is  stored  and  retrieved  as  an  integer  data  array.  In  general, 
packing  and  unpacking  is  done  in  the  EM  library  subroutines  and  is 
the  responsibility  of  the  programmer. 

Station  data  is  packed  using  DP_PACK  and  unpacked  using  DP_UNPK. 

The  DP — PACK  subroutine  packs  a real  data  value  by  applying  a scale 
factor  and  an  offset  which  transforms  the  expected  range  of  data 
values  into  a small  integer  range.  The  following  equation  is  used: 

I PACK  - NINT  ( DATA  / SCALE  ) - IOFFST 
TU'nP^FTP^^0"’  SCALE’  iS  10  **  L0GSCL  where  LOGSCL  is  specified 


LOGSCL,  IOFFST,  and  NBITS  must  be  defined  by  a call  to  DP_SETP  before 
any  packing  or  unpacking  is  done.  The  scale  factor  is  specified  in 
e rms  o its  base-10  logarithm.  These  terms  may  be  determined  from 
e range  and  resolution  desired  using  the  subroutine  DP_TERM. 

DP C PACK  or^pbiraPK* C ° '°  defin5  ,he  parameter,,  either 

na7wHKn  ° P-UNPK  may  be  called  repeatedly  for  data  records  to  be 

Farh  h f un?acked-  lhe  Dp  library  allows  multiple  definitions, 
bach  definition  is  identified  by  a packing  number. 


There  are  several  packing  schemes  available  for  gridded 
are  called  the  GEMPAK  GRIB,  DIF  and  NMC  formats. 


data. 


These 


The  GEMPAK  GRIB  format  is 
missing  data  points  may  be 
need  not  be  a power  of  2. 


similar  to  the  WMO  GRIB  format  except 
stored  and  retrieved  and  the  scaling 
The  equations  used  are: 


that 

factor 


I DATA  - NINT  ((  GRID  - QMIN  ) / SCALE  ) 
GRID  - QMIN  + I DATA  * SCALE 


DP_PGRB  may  be  used  to  pack  the  data.  In  this  case,  SCALE  wi  1 1 be  a 
E°WDr^0t  2 and  missing  data  may  be  stored  and  retrieved.  DP_PDEC  will 
pack  data  in  a minimum  number  of  bits  to  retain  the  requested  decimal 
precision.  SCALE  wi 1 1 not  necessarily  be  a power  of  2.  Data  stored 

^sing'DpluGRB"011'1116  ^ ^ rCCeived  in  GRIB  format  may  be  unpacked 


The  GEMPAK  DIF 
a r ow  of  data, 
first  point  in 


format  computes  the  difference  between  points  along 
At  the  first  point  in  a row,  the  difference  from  the 
the  previous  row  is  used.  These  differences  are  used 
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in  the  equa  t i ons : 

IDIF  = NINT  ( ( GDI F - DIFMIN  ) / SCALE  ) 

GDI F = DIFMIN  + IDIF  * SCALE 

These  grids  may  be  packed  using  DP PDIF  and  unpacked  using 

NMC  16-bit  grids  are  saved  directly  from  NMC.  They  may  be 
using  DP_UNMC  which  uses  the  equation: 

GRID  = AVG  + I DATA  * SCALE 


ERROR  MESSAGES: 


[DP  -1] 
[DP  -2] 
[DP  -3] 
[DP  -4] 
[DP  -5] 
[DP  -6] 
[DP  -7] 
[DP  -8] 
[DP  -9] 
[DP  -10] 
[DP  -11] 
[DP  -12] 


Packing  terms  are  not  defined. 

Too  many  packing  sets  are  defined. 
Invalid  number  of  data  values. 

Invalid  number  of  bits  specified. 
Datamax  less  than  datamin. 

Invalid  resolution. 

Open  error  on  parameter  packing  file. 
Read  error  on  parameter  packing  file. 
Packed  and  unpacked  data  are  mixed. 
NBITS  is  invalid  for  grid  packing. 

The  grid  data  has  no  range. 

SCALE  is  invalid  for  grid  packing. 


DP_UDIF. 

unpacked 
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DP  Library  Ca 11s 


DP_JENDP 

( 

i pkno , 

/ i r e t ) 

DP_F  I LE 

( 

p rmf  i 1 
i r e t ) 

, / npa  rm,  pa  rms  , 

logscl  , 

ioffst,  nbits 

. pkf  1 g , 

DP PACK 

( 

i pkno , 

data,  / ibitst, 

i r e t ) 

DP PDEC 

( 

grid, 
nb i t s , 

i g x , igy,  ires,  / 
i r e t ) 

idata, 

1 end a t , qmi n , 

scale, 

DP PDIF 

( 

grid, 

scale, 

i gx , igy,  nbi t s , 
i r e t ) 

/ idata, 

lendat,  pi,  difmin, 

DP_J>GRB 

( 

gr  id  , 
i r e t ) 

i gx , igy,  nbi t s , 

/ idata, 

lendat,  qmin, 

scale, 

DP SETP 

( 

nd  a t a , 

logscl,  iofset. 

nbi  t s , / 

i pkno  , nwords 

, iret  ) 

DP_TERM 

( 

datmin,  datmax,  res,  / 

logscl  , 

iofset,  nbits. 

iret  ) 

DP_UDIF 

( 

i da  t a , 
/ grid 

kxky , nb i t s , pi , 
, i r e t ) 

d i fmi  n , 

scale,  misflg 

, kx  , 

DP_UGRB 

( 

idata, 

kxky,  nbits,  qmin,  scale 

, misflg,  / grid,  iret  ) 

DP_UNMC 

( 

idata , 

kxky , nbits,  ref 

, scale, 

misflg,  / grid,  iret  ) 

DP_UNPK 

( 

i pkno , 

ibitst,  / data, 

i r e t ) 
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4.1  DP ENDP  - RELEASE  PACKING  NUMBER 


This  subroutine  releases  a 

DP_JENDP  ( IPKNO,  I RET  ) 

Input  parameters: 

IPKNO  INTEGER 

Output  parameters: 

I RET  INTEGER 


packing  number  for  the  DP  library. 


Packing  number 


Return  code 

0 = n o rma  1 return 
-1  = invalid  packing  number 
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4.2  DP_JF I LE  - READ  PACKING  FILE 


This  subroutine  reads  a pa r ame t e r - pa ck i ng  file.  The  parameters  in 
the  file  and  the  data-packing  terms  are  returned.  If  none  of  the 
data  is  to  be  packed,  PKFLG  is  set  to  false.  If  some  of  the  data 
is  to  be  packed  and  some  is  not,  an  error  is  returned. 

Pa r ame t e r - p a ck i ng  file  format: 

Each  parameter  in  the  file  must  be  described  on  a single  line 
containing  the  following  items  separated  by  blanks  or  tabs: 


parameter  name  CHAR* 4 

minimum  data  value  REAL 

maximum  data  value  REAL 

resolution  REAL 


The  resolution  should  be  an  integral  power  of  10.  If  not,  the 
next  smaller  resolution  will  be  used  (e.g.,  res  = .5  will 

become  .1).  If  the  resolution  is  0 or  if  the  minimum,  maximum 
and  resolution  are  not  present,  the  data  will  not  be  packed. 

DP_JFILE  ( PRMFIL,  NPARM,  PARMS , LOGSCL,  IOFFST,  NBITS , PKFLG, 

I RET  ) 

Input  parameters: 

PRMFIL  CHAR*  Parameter  packing  file  name 

Output  parameters: 

NPARM  INTEGER  Number  of  parameters 

PARMS  (NPARM)  CHAR*  Parameter  names 

LOGSCL  (NPARM)  INTEGER  LoglO  of  scale  factor 

IOFFST  (NPARM)  INTEGER  Offset 

NBITS  (NPARM)  INTEGER  Number  of  bits 

PKFLG  LOGICAL  Packing  flag 

IRET  INTEGER  Return  code 

0 « no rma  1 return 
-3  « invalid  number  of  parms 
-7  =»  packing  file  not  opened 
-8  ■■  file  read  error 
-9  * packed  and  unpacked  data 
mixed 
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4.3  DP PACK  - PACK  DATA 


This  subroutine  packs  an  array  of  real  values  into  a continuous 
bit  string  which  is  returned  in  the  IBITST  integer  array.  The 
subroutine  DP_SETP  must  be  called  first  to  define  the  data 
packing  t e rms  . 

DP_JPACK  ( IPKNO,  DATA,  IBITST,  IRET  ) 

Input  parameters: 

IPKNO  INTEGER  Packing  number 

DATA  (*)  REAL  Data  values  to  be  packed 

Output  parameters: 

IBITST  INTEGER  Packed  data 

IRET  INTEGER  Return  code 

0 = normal  return 
-1  = packing  terms  undefined 
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4.4  DP PDEC  - PACK  GRID  IN  DEC  FORMAT 


This  subroutine  uses  the  precision  specified  to  pack  a grid  into 
the  GEMPAK  GRIB  format.  The  precision  specifies  the  power  of 
10  to  be  used  in  scaling  the  data  before  converting  to  an  integer. 
The  minimum  number  of  bits  required  to  maintain  the  precision  is 
computed.  The  GEMPAK  GRIB  packing  and  unpacking  equations  are: 

IDATA  - NINT  ( ( GRID  - QMIN  ) / SCALE  ) 

GRID  - QMIN  + IDATA  * SCALE 

DP_PDEC  ( GRID.  IGX , I GY,  IRES,  IDATA,  LENDAT,  QMIN,  SCALE,  NBITS 
I RET  ) 

Input  parameters: 

GRID  ( IGX, I GY ) 

IGX 
I GY 
IRES 

Output  parameters: 

IDATA  (LENDAT) 

LENDAT 
QMIN 
SCALE 
NBITS 
I RET 

0 - n o rma  1 return 
-10  - NBITS  invalid 
-11  = invalid  data  range 


REAL 

Grid  data 

INTEGER 

Number  of 

points  in  x 

dir 

INTEGER 

Number  of 

points  in  y 

dir 

INTEGER 

Precision 

as  p owe  r of 

10 

INTEGER 

Packed 

data 

INTEGER 

Length 

of  packed 

data  array 

REAL 

Minimum  value  of 

grid 

REAL 

Scaling 

factor 

INTEGER 

Numbe  r 

of  bits 

INTEGER 

Return 

code 
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4.5  DP PDIF  - PACK  GRID  IN  DIF  FORMAT 

This  subroutine  packs  a grid  into  the  GEMPAK  DIF  format.  The 
value  of  the  difference  between  a point  and  the  previous  point 
is  packed  using  the  equations: 

IDIF  - NINT  ( ( GDI F - DIFMIN  ) / SCALE  ) 

GDIF  - DIFMIN  + IDIF  * SCALE 

DP PDIF  ( GRID,  IGX , I GY , NB ITS , IDATA,  LENDAT , PI,  DIFMIN, 

SCALE,  I RET  ) 

Input  parameters: 


GRID  (IGX.IGY) 

REAL 

Grid  data 

IGX 

INTEGER 

Number  of  points  in 

x dir 

I GY 

INTEGER 

Number  of  points  in 

y d i r 

NBITS 

INTEGER 

Numbe  r of  bits 

Output  par ame  t e r s : 

IDATA  (LENDAT) 

INTEGER 

Packed  data 

LENDAT 

INTEGER 

Length  of  packed  da 

t a array 

PI 

REAL 

Value  of  first  grid 

point 

DIFMIN 

REAL 

Minimum  value  of  di 

fferences 

SCALE 

REAL 

Scaling  factor 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-10  - NBITS  inval id 
- 1 1 = inval id  data 

range 
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4.6  DP PGRB  - PACK  GRID  IN  GRIB  FORMAT 


This  subroutine  packs  a grid  into  the  GEMPAK  GRIB  format  using 
number  of  bits  specified.  The  packing  and  unpacking  equations 

IDATA  - NINT  ( ( GRID  - QMIN  ) / SCALE  ) 

GRID  - QMIN  + IDATA  * SCALE 

DP — PGRB  ( GRID,  IGX,  I GY , NBITS , IDATA,  LENDAT,  QMIN,  SCALE, 

I RET  ) 

Input  parameters: 

GRID  ( IGX, I GY) 

IGX 
I GY 
NBITS 

Output  parameters: 

IDATA  (LENDAT) 

LENDAT 
QMIN 
SCALE 
I RET 

0 * normal  return 
-10  = NBITS  invalid 
-11  - invalid  data  range 


REAL 

Grid  data 

INTEGER 

Numbe  r 

Of 

points 

in  x dir 

INTEGER 

Numbe  r 

of 

points 

in  y dir 

INTEGER 

Numbe  r 

of 

bits 

I NTEGER 

Packed 

data 

INTEGER 

Length 

of  packed 

data  array 

REAL 

Mi  n imum 

value  of 

grid 

REAL 

Seal i ng 

factor 

INTEGER 

Return 

code 

the 

are 
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4 ♦ 7 DP SETP  - DEFINE  PACKING  TERMS 


This  subroutine  defines  the  terms  needed  for  data  packing  and 
unpacking.  It  must  be  called  once  for  each  set  of  data.  Records 

may  be  packed  or  unpacked  by  calls  to  DP PACK  or  DP__UNPK.  The 

subroutine  DP TERM  is  provided  for  computing  the  values  needed  by 

this  subroutine.  LOGSCL  is  the  power  of  10  to  be  used  in  scaling 
data. 

DP SETP  ( NDATA , LOGSCL,  IOFSET,  NB  ITS  , IPKNO,  NW3RDS  , I RET  ) 

Input  parameters: 

NDATA  INTEGER 

LOGSCL  (NDATA)  INTEGER 
IOFSET  (NDATA)  INTEGER 
NBITS  (NDATA)  INTEGER 

Output  par  ame  t e r s : 


IPKNO 

INTEGER 

Packing  number 

NWDRDS 

INTEGER 

Number  of  words 

I RET 

INTEGER 

Return  code 

0 = no  rma  1 return 
-2  = no  more  packing  numbers 
-3  - NDATA  invalid 
-4  = NBITS  invalid 

Number  of  data  values 
LoglO  of  scale  factor 
Offset 

Numb  er  of  bits 
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4.8  DP_TERM  - COMPUTE  PACKING  TERMS 


This  subroutine  computes  the  terms  required  by  the  data-packing 
subroutines.  The  scale  factor,  offset,  and  number  of  bits  are 
computed  from  the  minimum,  maximum  and  resolution  for  each  data 
item.  These  terms  are  computed  for  a single  item  in  this  subroutine. 
Therefore,  this  subroutine  must  be  called  for  each  data  item  to  be 
packed. 

The  resolution  mu  st  be  an  integral  p owe  r of  10.  If  not,  the  next 
smaller  resolution  will  be  used.  For  example:  RES  * .5  will  use  a 
resolution  of  .1  . LOGSCL  is  the  base  10  logarithm  of  the  value  to 

be  used  in  scaling  data.  NBITS  must  be  less  than  32. 

DP_TERM  ( DATMIN , DATMAX,  RES,  LOGSCL,  IOFSET,  NBITS,  I RET  ) 


Input  parameters: 

DATMIN 

REAL 

Minimum  data  value 

DATMAX 

REAL 

Ma x i mum  data  value 

RES 

REAL 

Resolution  to  be  retained 

Ou  t p u t par  ame  t e r s : 

LOGSCL 

INTEGER 

LoglO  of  scaling  factor 

IOFSET 

INTEGER 

Da  ta  offset 

NBITS 

INTEGER 

Numbe  r of  bits 

I RET 

INTEGER 

Return  code 

0 « normal  return 
-5  - DATMAX  less  than  DATMIN 
-6  = invalid  resolution 
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4.9  DP_UD I F - UNPACK  GRID  IN  DIF  FORMAT 

This  subroutine  unpacks  a grid  in  the  GEMPAK  DIF  format.  The 
value  of  the  difference  between  a point  and  the  previous  point 
is  packed  using  the  equations: 

IDIF  - NINT  ( ( GDI F - DIFMIN  ) / SCALE  ) 

GDIF  - DIFMIN  + IDIF  * SCALE 

DP_UD I F ( IDATA,  KXKY , NB ITS , PI,  DIFMIN,  SCALE,  MISFLG,  KX , 
GRID,  IRET  ) 

Input  parameters: 

IDATA  (*)  INTEGER 

KXKY  I NTEGER 

NBITS  INTEGER 

PI  REAL 

DIFMIN  REAL 

SCALE  REAL 

MISFLG  LOGICAL 

KX  INTEGER 

Output  parameters: 

GRID  (KXKY)  REAL  Grid  data 

IRET  INTEGER  Return  code 

0 = normal  return 
- 10  = NBITS  invalid 
-11  = invalid  data  range 


Packed  data 

Total  number  of  grid  points 

Numbe  r of  bits 

Value  of  first  grid  point 

Mini mum  value  of  differences 

Scaling  factor 

Missing  data  flag 

Number  of  points  in  x dir 
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4.10  DP_UGRB  - UNPACK  GRID  IN  GRIB  FORMAT 


This  subroutine  unpacks  a grid  into  the  GEMPAK  GRIB  format. 

The  packing  and  unpacking  equations  are: 

IDATA  - NINT  ( (GRID  - QMIN  ) / SCALE  ) 

GRID  - QMIN  + IDATA  * SCALE 

DP_UGRB  ( IDATA,  KXKY,  NBITS , QMIN,  SCALE,  MISFLG,  GRID,  IRET  ) 

Input  parameters: 

IDATA  (*)  INTEGER  Packed  data 

KXKY  INTEGER  Number  of  grid  points 

NBITS  INTEGER  Number  of  bits 

QMIN  REAL  Minimum  value  of  grid 

SCALE  REAL  Scaling  factor 

MISFLG  LOGICAL  Missing  data  flag 

Ou  t p u t par  ame  t e r s : 

GRID  (KXKY)  REAL  Grid  data 

IRET  INTEGER  Return  code 

0 - normal  return 
-10  - NBITS  invalid 
- 1 2 - i nva lid  scale 
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4.11  DP_UNMC  - UNPACK  GRID  IN  NMC  FORMAT 


This  subroutine  unpacks  a grid  in  the  NMC  format.  The  unpacking 
equation  is: 

GRID  - REF  + I DATA  * SCALE 

Each  grid  point  mu  st  be  packed  into  16  bits  wh  ich  can  be  treated 
as  an  INTEGER*2  word.  The  scaling  factor  is  a multiplier  for  the 
data.  It  mu  st  be  set  to  1 / 2 * * (15-N)  wh  ere  N is  the  exponent 
with  the  original  NMC  grid.  This  subroutine  assumes  there  is  no 
mi  ssing  data. 

DP_UNMC  ( IDATA,  KXKY , NB ITS,  REF,  SCALE,  MISFLG,  GRID,  IRET  ) 

Input  parameters: 

IDATA  (KXKY) 

KXKY 
NBITS 
REF 
SCALE 
MISFLG 

Output  parameters: 

GRID  (KXKY) 

IRET 


INTEGER 

Packed  data 

INTEGER 

Number  of  grid  points 

INTEGER 

Numbe  r of  bits 

REAL 

Reference  value  of  grid 

REAL 

Scaling  factor 

LOGICAL 

Missing  data  flag 

REAL 

Grid  data 

INTEGER 

Return  code 

0 = normal  return 
-10  = NBITS  invalid 
-12  = invalid  scale 
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4.12  DP_UNPK  - UNPACK  DATA 


This  subroutine  unpacks  a bit  string  from  an  integer  array  that 

was  packed  by  the  subroutine  DP PACK.  The  unpacked  data  is 

returned  in  a real  array.  DP SETP  must  be  called  to  define  the 

packing  terms  before  this  subroutine  is  called. 

DP_UPCK  ( IPKNO,  BITSTR , DATA,  I RET  ) 


Input  parameters: 

IPKNO  INTEGER 

IBITST  INTEGER 


Packing  number 
Packed  data  array 


Output  parameters: 

DATA  (*)  REAL  Unpacked  data  values 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
-1  - packing  terms  undefined 
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CHAPTER  5 

ERROR  (ER)  LIBRARY 


Write  an  ERROR  message 
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Error  (ER)  Library  Summary 


The  error  library  is  provided  for  processing  errors  from  GEMPAK 
subrout ine  s . 

EIL3MSG  writes  error  messages  at  the  user’s  terminal.  The  message 
is  written  to  the  standard  FORTRAN  output  unit  6. 

The  messages  are  stored  in  GEMPAK  table  files,  which  are  sequential 
access  files  that  can  be  created  using  any  text  editor.  Each  file 
may  contain  any  number  of  leading  comment  records.  These  are  records 
which  begin  with  an  exclamation  point.  Message  records  may  contain 
up  to  128  characters.  They  are  free  format  and  consist  of  the 
following  fields  separated  by  any  number  of  spaces  or  tabs: 

MESSAGE  NUMBER 

The  first  field  is  the  number  that  ERJiVMSG  uses  to  locate 
the  message.  It  may  be  any  non-zero  integer  value. 

MESSAGE  NAME 

The  second  field  is  a name  that  may  be  used  for  the 
message.  This  field  is  optional  and  is  ignored  by  EILJ^MSG. 

MESSAGE 

The  last  field  is  the  message  to  be  printed.  It  must  be 
preceded  by  an  exclamation  point  which  indicates  the 
start  of  message.  One  !AS  code  may  be  included  to 
indicate  where  a string  is  to  be  embedded.  The  code  i\ 
may  be  used  for  a new  line  if  a message  is  to  appear  on 
two  lines.  There  is  no  provision  for  continuation  lines 
within  the  file. 
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EILVWSG 


ER  Library  Calls 

( errgrp,  nume  r r , errstr,  / iret  ) 
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5.1  ER_WMSG  - WRITE  AN  ERROR  MESSAGE 


This  subroutine  writes  an  error  message  to  the  user’s  terminal. 
The  output  message  will  contain  the  error  group  and  error  number 
in  brackets  followed  by  the  message.  If  the  error  file  or  error 
number  cannot  be  found,  only  the  error  group  and  number  will  be 
wr  i 1 1 en . 

The  string,  ERRSTR , will  replace  an  !AS  found  in  the  message. 

The  messages  are  stored  in  error  files.  The  message  is  read 
from  the  file  GEMERR : ’ ERRGRP ’ . ERR . 


ER_WMSG  ( ERRGRP,  NUMERR , ERRSTR,  I RET  ) 


I npu  t par  ame  ters: 

ERRGRP 

CHAR* 

Error  g roup 

NUMERR 

INTEGER 

Error  number 

ERRSTR 

CHAR* 

String  to  be  embedded 

Ou  t p u t par  ame  ters: 

IRET 

INTEGER 

Return  code 

3 = error  number  not  found 
2 * error  file  not  found 
0 = normal  return 
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FL^APND 

FL_BKSP 

FL_CDEL 

FL_CLAL 

FUjCLOS 

fl_jx:re 

FUJX)PN 

FL_PSOP 

FUJFLUN 

FL_GLUN 

FU_GNAM 

FL_IRET 

FL_INQR 

FL_PERR 

FL_READ 

FL_REWD 

FL_RSHR 

FL SOPN 

FL SUNK 

FL SVvCP 

FL_TOPN 
FL_TREW 
FL_WR  I T 


Position  file  for  append 
Backspace  sequential  file 
Close  and  delete  file 
Close  all  open  files 
Close  file 

Create  direct  access  file 
Open  existing  direct  access  file 
Open  shared  direct  access  file 
Free  logical  unit  number 
Allocate  logical  unit  number 
Get  file  name  for  logical  unit 
Get  GEMPAK  error  number 
Inquire  wh ether  a file  exists 
Print  I/O  status  error 
Read  direct  access  record 
Rewind  sequential  file 
Read  shared  access  record 
Open  sequential  access  file 
Open  unknown  sequential  file 
Open  sequential  file  for  write 
Open  table  file 
Rewind  table  file 
Wr  ite  direct  access  record 
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File  (FL)  Library  Summary 


The  file  library  provides  subroutines  to  access  direct  access  files, 
sequential  files  and  table  files.  The  open  and  create  subroutines 
return  a logical  unit  number  which  can  be  used  to  access  the  files. 

A table  file  is  a sequential  file  which  may  have  leading  comment 
records.  A comment  record  is  any  record  where  the  first  non-blank 
character  is  an  exclamation  point.  The  table  open  subroutine  skips 
these  leading  comment  records.  Table  files  may  be  created  using  a 
text  editor. 

Direct  access  files  may  be  created  using  FL _PCRE . The  subroutines 
FL_DOPN  and  FL_JDSOP  open  existing  direct  access  files.  FL_^READ 
and  FL_WRIT  are  provided  to  read  and  write  data  in  direct  access 
files. 

The  single  subroutine  FL (CLOS  is  provided  for  closing  any  file 

opened  by  an  FL  open  subroutine. 

Each  of  the  FL  subroutines  returns  a condition  code,  IRET,  which 
is  the  GEMPAK  file  error  number.  This  error  number  can  be  printed 
using  ER_\\MSG . If  FORTRAN  I/O  services  are  called  directly,  the 
subroutine  FL_I RET  will  translate  the  IOSTAT  return  into  a GEMPAK 
file  error  number.  The  routine  FL_PERR  will  translate  the  number 
and  print  an  error  message. 


ERROR  MESSAGES: 


[FL  20] 
[FL  21] 
[FL  22] 
[FL  23] 
[FL  24] 
[FL  25] 
[FL  26] 
[FL  27] 
[FL  28] 
[FL  29] 
[FL  30] 
[FL  31] 
[FL  32] 
[FL  33] 
[FL  34] 
[FL  36] 
[FL  37] 
[FL  38] 


REWI ND  error. 

Duplicate  file  specifications  for  file  .... 
Input  record  too  long. 

BACKSPACE  error. 

End-of-file  during  read. 

Record  number  outside  range. 

OPEN  required  for  file  .... 

Too  many  records  in  I/O  statement. 

CLOSE  error. 

File  ...  not  f ound . 

Open  failure  for  file  .... 

Mixed  file  access  mo des  for  file  .... 
Invalid  logical  unit  number  for  file  .... 
ENDF I LE  error. 

Unit  already  open. 

Attempt  to  access  non-existent  record. 
Inconsistent  record  length. 

File  wr  ite  error. 
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[FL  39] 
[FL  40] 
[FL  41  ] 
[FL  42] 
[FL  43] 
[FL  44] 
[FL  45] 
[FL  46] 
[FL  47] 
[FL  48] 
[FL  51] 
[FL  52] 
[FL  53] 
[FL  54] 
[FL  55] 
[FL  56] 
[FL  57] 
[FL  62] 
[FL  63] 
[FL  64] 
[FL  66] 
[FL  67] 
[FL  68] 
[FL  -201] 
[FL  -202] 
[FL  -203] 
[FL  -204] 
[FL  -205] 
[FL  +206] 
[FL  -207] 
[FL  +208] 
[FL  -209] 


File  read  error. 

Invalid  recursive  I/O  operation. 

Insufficient  virtual  memory. 

Invalid  device  specification  for  file  .... 

...  is  not  a valid  file  specification. 
Inconsistent  record  type. 

Keywo  rd  value  error  in  OPEN  for  file  .... 
Inconsistent  OPEN/CLOSE  parameters  for  .... 
Write  to  READONLY  file. 

Invalid  argument  to  FORTRAN  Run-Time  Library. 
Inconsistent  file  organization  for  file  .... 
Record  1 ocked . 

No  current  record. 

REWRITE  error. 

DELETE  error. 

UNLOCK  error. 

F I ND  error. 

Syntax  error  in  format  for  file  .... 

Output  conversion  error. 

Input  conversion  error. 

Output  statement  overflows  record. 

Input  statement  requires  too  much  data. 

Variable  format  expression  value  error. 

The  file  ...  is  being  used  by  another  user. 
Invalid  directory  specification  for  file  .... 
The  file  ...  cannot  be  opened  for  write  access. 
No  more  logical  unit  numbers  available. 

No  data  records  in  table  file  .... 

No  file  open  with  logical  unit  number. 

Disk  quota  exceeded  in  creating  file  .... 
Logical  unit  number  cannot  be  freed. 

Disk  quota  exceeded  when  extending  file  .... 
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FL  Library  Calls 


FL_JVPND 

( lun,  / iret  ) 

FL_BKSP 

( lun,  / iret  ) 

FL_CDEL 

( lun,  / iret  ) 

FL_CLAL 

( / iret  ) 

FL_CLOS 

( lun,  / iret  ) 

FL_JDCRE 

C filnam,  irecsz,  / lun,  iret  ) 

FL_DOPN 

( filnam,  irecsz,  wr  t f 1 g , / 

lun  , 

FL_PSOP 

( filnam,  irecsz,  / lun,  iret  ) 

FL_JFLUN 

( lun,  / iret  ) 

FL_GLUN 

C / lun,  iret  ) 

FL_GNAM 

( lun,  / filnam,  iret  ) 

FL_IRET 

C iostat,  / iflerr,  iret  ) 

FL_INQR 

( f i 1 n am , / exist,  iret  ) 

FUJPERR 

( iostat,  / msgnum,  iret  ) 

FL_READ 

( lun,  irec,  len,  / iarray, 

iret 

FL_JREWD 

( lun,  / iret  ) 

FL_JRSHR 

( lun,  irec,  len,  / iarray, 

iret 

FL SOPN 

( f i lnam,  / lun , iret  ) 

FL_SUNK 

( f i lnam,  / lun , iret  ) 

FL_S\MDP 

( filnam,  / lun,  iret  ) 

FL_TOPN 

C f i lnam,  / lun,  iret  ) 

FL_TREW 

( lun,  / iret  ) 

FL_WRIT 

( lun,  irec,  len,  iarray,  / 

iret 
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6.1  FL_APND  - POSITION  FILE  FOR  APPEND 

This  subroutine  positions  a sequential  file  at  the  end-of-file 
mark  so  that  records  written  after  this  call  will  be  appended  to 
the  file. 

FL_JVPND  ( LUN,  I RET  ) 

Input  parameters: 

LUN  INTEGER  Logical  unit  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
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6.2  FL_BKSP  - BACKSPACE  SEQUENTIAL  FILE 


This  subroutine  backspaces  a sequential  file. 
FL_BKSP  ( LUN,  I RET  ) 


Input  parameters: 
LUN 

INTEGER 

Log i cal  unit 

numbe  r 

Output  par  ame  t e r s : 
I RET 

INTEGER 

Return  code 

0 - n o rma  1 
< >0  - GEMPAK 

return 
file  error 
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6.3  FL_CDEL  - CLOSE  AND  DELETE  FILE 


This  subroutine  closes  and  deletes  a file  that  was  opened  by  any 
FL  subroutine  and  frees  the  assigned  logical  unit  number.  Note 
that  this  uses  a non-standard  FORTRAN  option  so  that  the  fi  e may 
not  be  deleted  on  UNIX  systems. 

FL_CDEL  ( LUN,  I RET  ) 

Input  parameters: 

LXJN  INTEGER  Logical  unit  number 

Ou  t pu  t par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 = normal  return 
<>0  = GEMPAK  file  error 
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6 . 4 FL_CLAL 

This  subroutine 

FUJCLAL  ( I RET 

Output  parameter 
I RET 


CLOSE  ALL  OPEN  FILES 


loses  all  open  files. 


INTEGER  Return  code 

0 - normal 
< >0  - GEMPAK 


return 
file  error 
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6.5  FL_CLOS  - CLOSE  FILE 


This  subroutine  closes  a file  that  was  opened  by  a FL  subroutine 
and  frees  the  assigned  logical  unit  number. 

FL_CLOS  ( LUN,  I RET  ) 

Input  parameters: 

UJN  INTEGER  Logical  unit  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
<>0  = GEMPAK  file  error 
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6.6  FL_PCRE  - CREATE  DIRECT  ACCESS  FILE 


This  subroutine  creates  a new  direct  access  file  and  leaves 

file  open.  It  returns  a logical  unit  number  to  be  used  to 
t h e f i 1 e . 


FL_DCRE  ( FILNAM, 

Input  parameters: 

F I LNAW 
IRECSZ 

Output  parameters: 
LUN 
I RET 


IRECSZ,  LUN, 

IRET  ) 

CHAR* 

File  name 

INTEGER 

Record  length  in  wo  r d s 

INTEGER 

Logical  unit  number 

INTEGER 

Return  code 

0 = normal  return 
< > 0 = GEMPAK  file  error 


the 

access 
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6.7  FL_DOPN  - OPEN  EXISTING  DIRECT  ACCESS  FILE 

This  subroutine  opens  an  existing  direct  access  file  and  returns  a 
logical  unit  number  to  be  used  to  access  the  file. 


FL_POPN  ( FILNAM, 

IRECSZ,  WRTFLG, 

LUN,  I RET  ) 

I npu  t par  ame  t e r s : 

FILNAM 

CHAR* 

File  name 

IRECSZ 

INTEGER 

Record  length 

i n wo  r d s 

WRTFLG 

LOGICAL 

Wr  ite  access 

flag 

Ou  t pu  t par  ame  t e r s : 

LUN 

INTEGER 

Log i ca 1 unit 

numb  e r 

I RET 

INTEGER 

Re  turn  code 
0 = normal 
< >0  = GEMPAK 

return 
file  error 
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6.8  FL_DSOP  - OPEN  SHARED  DIRECT  ACCESS  FILE 


This  subroutine  opens  an  existing  direct  access  file  for  shared, 
write  access.  It  returns  a logical  unit  number  to  be  used  to 
access  the  file. 

This  subroutine  is  provided  so  that  real-time  data  ingest  programs 
can  update  a file  while  other  programs  have  the  file  open  for 
read  access.  FL— JDOPN  should  be  used  to  open  files  for  write 
access  by  non- r e a 1 - t ime  programs. 


FL_DSOP  ( FILNAM, 

IRECSZ,  LUN, 

I RET  ) 

Input  parameters: 

FILNAM 

CHAR* 

File  name 

IRECSZ 

INTEGER 

Record  length 

i n wo  r d s 

Output  parameters: 

LUN 

INTEGER 

Logical  un i t 

numb  e r 

I RET 

INTEGER 

Return  code 
0 = normal 
< >0  - GEMPAK 

return 
file  error 
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6.9  FL_FLUN  - FREE  LOGICAL  UNIT  NUMBER 


This  subroutine  frees  a logical  unit  number  that  was  allocated  by 
FL_GLUN . A logical  unit  n umb er  should  be  freed  wh en  it  is  no 
1 ong  e r needed. 

FL_JFLUN  ( LUN,  I RET  ) 

Input  parameters: 

LUN  INTEGER  Logical  unit  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - normal  return 
<>0  - lun  could  not  be  freed 
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6.10  FL_GLUN  - ALLOCATE  LOGICAL  UNIT  NUMBER 


This  subroutine  gets  a logical  unit  number  that  can  be  used  for 
file  access.  It  is  used  to  eliminate  conflicts  in  assigning 
logical  unit  numbers. 

FL_GLUN  ( LUN,  I RET  ) 

Ou  t pu  t par  ame  t e r s : 

LUN  INTEGER  Logical  unit  number 

IRET  INTEGER  Return  code 

0 * n o rma  1 return 
-204  * no  more  luns 
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6.11  FL_GNAM  - GET  FILE  NAME  FOR  LOGICAL  UNIT 

This  subroutine  returns  the  file  name  associated  with  a logical 
unit  numbe  r . 

FL_GNAM  ( LUN,  FILNAM,  I RET  ) 

Input  parameters: 

LUN  INTEGER  Logical  unit  number 

Output  parameters: 

FILNAM  CHAR*  File  name 

IRET  INTEGER  Return  code 

0 = normal  return 
206  = unit  not  open 
< > 0 = GEMPAK  file  error 
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6.12  FL_IRET  - GET  GEMPAK  ERROR  NUMBER 


This  subroutine  takes  the  IOSTAT  value  returned  from  a FORTRAN  I/O 
statement  and  determines  the  GEMPAK  message  number  for  the  error. 
This  value  can  be  used  to  write  a GEMPAK  FL  error  message.  This 
subroutine  must  be  called  immediately  after  the  I/O  operation. 

FL_IRET  C IOSTAT,  IFLERR,  I RET  ) 

Input  parameters: 

IOSTAT  INTEGER  Status  from  I/O  operation 

Output  parameters: 

IFLERR  INTEGER  GEMPAK  file  error 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
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6.13  FL_INQR  - INQUIRE  WHETHER  A F ILE  EX I STS 


This  subroutine  determines  whether  a file  exists. 


FL_I  NQR  ( FILNAM,  EXIST,  IRET 

Input  parameters: 

FILNAM  CHAR* 

Output  parameters: 

EXIST  LOGICAL 

IRET  INTEGER 


File  name 


File  exists  flag 
Re  turn  code 

0 - normal  return 
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6.14  FL PERR  - PRINT  I/O  STATUS  ERROR 


This  subroutine  translates  errors  returned  as  IOSTAT  values  in 
Fortran  I/O  statement  into  GEMPAK  error  numbers  and  prints 
the  error  message.  Errors  returned  from  FL  subroutines  are 
already  translated  and  may  be  printed  using  ER__WMSG . 


FL PERR  ( IOSTAT,  MSGNUM,  I RET  ) 


Input  par  ame  t e r s : 

IOSTAT 

INTEGER 

Status 

returned  I/O  operation 

Output  parameters: 

MSGNUM 

INTEGER 

GEMPAK 

file  error 

I RET 

INTEGER 

Return 

code 

0 = 

normal  return 
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6.15  FL^READ  - READ  DIRECT  ACCESS  RECORD 

This  subroutine  reads  a record  from  a direct  access  file.  On  VMS 
systems,  if  the  record  is  locked  by  another  user,  30  tries  to  open 
the  file  will  be  attempted  at  1-second  intervals. 

FL_READ  C LUN,  IREC,  LEN,  I ARRAY,  I RET  ) 


I npu  t par  ame  t e r s : 

LUN 

INTEGER 

Logical  unit  number 

IREC 

INTEGER 

Record  number 

LEN 

INTEGER 

Record  length  in  words 

Output  par  ame  t e r s : 

I ARRAY  (LEN) 

INTEGER 

Da  ta  record 

I RET 

INTEGER 

Re  turn  code 

0 « no rma 1 return 
52  - locked  record 
<>0  = GEMPAK  file  error 
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6.16  FL REWD 

Thi s subroutine 

FL_REWD  ( LUN , 

Input  parameter 
LUN 

Output  paramete 
I RET 


- REWIND  SEQUENTIAL  FILE 

rewinds  a sequential  file. 
I RET  ) 


INTEGER  Logical  unit  number 


INTEGER  Return  code 

0 = normal  return 
< > 0 = GEMPAK  file  error 
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6-17  FL_JtSHR  - READ  SHARED  ACCESS  RECORD 


This  subroutine  reads  a record  from  a direct  access  file.  On  a VMS 
system,  if  the  record  is  locked  by  another  user,  30  tries  to  open  the 
file  will  be  attempted  at  1-second  intervals.  This  subroutine  is 
meant  to  be  called  when  a file  is  opened  for  shared,  write  access. 

As  each  record  is  read,  it  is  written  back  to  the  file  in  order  to 
prevent  records  from  being  locked  on  VMS  systems.  This  subroutine 
should  not  be  necessary  on  UNIX  systems. 

FL_RSHR  ( LUN,  IREC,  LEN , I ARRAY,  I RET  ) 


Input  parameters: 
LUN 
IREC 
LEN 


INTEGER 

INTEGER 

INTEGER 


Logical  unit  number 

Record  number 

Record  length  in  words 


Ou  tpu  t par  ame  t e r s : 

I ARRAY  (LEN)  INTEGER 

I RET  INTEGER 


Da  ta  record 
Return  code 

0 = norma  1 return 
52  =*  locked  record 
<>0  = GEMPAK  file  error 
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6.18  FL SOPN  - OPEN  SEQUENTIAL  ACCESS  FILE 


This  subroutine  opens  an  existing  sequential  file  and  returns  a 
logical  unit  number  to  be  used  to  access  the  file.  The  file  is 
opened  as  a READONLY  file. 

FL_SOPN  ( FILNAM,  LUN,  I RET  ) 


Input  parameters: 

FILNAM  CHAR* 


File  name 


Output  parameters: 

LUN  INTEGER 

I RET  INTEGER 


Logical  unit  number 
Return  code 

0 - normal  return 
< > 0 = GEMPAK  file  error 
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6.19  FL_SUNK  - OPEN  UNKNOWN  SEQUENTIAL  FILE 


This  subroutine  opens  an  sequential  file  and  returns  a logical 
unit  number  to  be  used  to  access  the  file.  The  file  is  opened 
as  a new  file,  if  possible.  If  not,  it  is  opened  with  status 
of  unknown.  Thus,  a new  version  will  be  created  on  VMS  systems 
and  the  existing  file  will  be  rewritten  on  UNIX  systems. 

FL SUNK  ( FILNAM,  LUN , I RET  ) 


Input  parameters: 

FILNAM 

CHAR* 

File  name 

Ou  t p u t par  ame  t e r s : 

LUN 

INTEGER 

Logical  un i t 

numb  e r 

I RET 

INTEGER 

Return  code 
0 = normal 
< > 0 = GEMPAK 

return 
file  error 
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6.20  FL_SWDP  - OPEN  SEQUENTIAL  FILE  FOR  WRITE 


This  subroutine  opens  or  creates  a sequential  file  and  returns  a 
logical  unit  number  to  be  used  to  access  the  file.  The  file  is 
opened  for  write  access. 

FL_SVM)P  ( FILNAM,  LUN , I RET  ) 

Input  parameters: 

FILNAM  CHAR*  File  name 

Output  parameters: 

LUN  INTEGER  Logical  unit 

I RET  INTEGER  Return  code 

0 “ normal 
<>0  - GEMPAK 


numb  e r 

return 
file  error 
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6.21  FL_TOPN  - OPEN  TABLE  FILE 


Th is  subroutine  opens  an  existing  table  file.  A table  file  is  a 
sequential  file  that  may  have  comment  records  at  the  beginning 
of  the  file.  If  the  first  non-blank  character  in  the  first  80 
characters  is  an  exclamation  point,  the  record  is  a comment  record. 
Leading  comment  records  are  skipped  and  the  file  is  positioned 
for  reading  at  the  first  valid  data  record.  The  file  is  opened 
for  READONLY  access . 


FL_TOPN  ( FILNAM, 

LUN,  I RET  ) 

Input  parameters: 
FILNAM 

CHAR* 

File  name 

Output  parameters: 
LUN 
I RET 

INTEGER 

INTEGER 

Logical 
Return 
0 = 
-205  = 
<>0  = 

un i t numbe  r 
code 

normal  return 
no  data  records  found 
GEMPAK  file  error 
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6.22  FL_TREW  - REWIND  TABLE  FILE 


This  subroutine  rewinds  a table  file  that  was  opened  by  FL_TOPN . 
The  file  is  positioned  to  read  the  first  data  record  in  the  file. 

FL_TREW  ( LUN,  I RET  ) 

Input  parameters: 

LUN  INTEGER  Logical  unit  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
< >0  = GEMPAK  file  error 
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6.23  FL_WR I T - WRITE  DIRECT  ACCESS  RECORD 

This  subroutine  writes  a record  to  a direct  access  file. 
FLJWRIT  ( LUN,  IREC,  LEN , I ARRAY , IRET  ) 

Input  parameters: 


LUN 

INTEGER 

Logical  unit  number 

IREC 

INTEGER 

Record  numb  e r 

LEN 

INTEGER 

Record  length  in  words 

I ARRAY  (LEN) 

INTEGER 

Da  ta  record 

Output  par  ame  t e r s : 

IRET 

INTEGER 

Return  code 

0 = no  rma  1 return 
<>0  = CEMPAK  file  error 
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Grid  (GD)  Library  Summary 


The  grid  library  subroutines  allow  the  programmer  to  access  GEMPAK 
grid  files.  Subroutines  are  available  to  create  new  files  and  to 
read  and  write  information  in  existing  files. 

A grid  file  is  a collection  of  grids;  each  grid  is  a two-dimensional 
array  of  numbers.  In  general,  each  grid  represents  a quasi- 
horizontal slice  through  the  atmosphere.  Each  grid  in  the  file  has 
a grid  identifier  containing  the  time,  vertical  level,  vertical 
coordinate  system  and  parameter  name. 


GRID  IDENTIFIER: 

TIME  CHARACTER  *20  (2) 

Time  is  formatted  as  the  GEMPAK  standard  grid  time, 

YYMMDD  / HHMM  t hhhmm 

wh  ere: 

YYMMDD  is  the  year,  month,  day 
HHMM  is  the  hour,  minute 

t is  the  type  ( F~forecast,  A-analysis,  G«guess  ) 

hhhmm  is  the  forecast  hour,  minute. 

Two  time  fields  may  be  included  in  the  grid  identifier. 

These  may  be  used,  for  example,  for  the  difference  of  two 
times.  If  only  a single  time  is  needed,  TIME  (2)  - ’ 

If  t is  blank,  an  analysis  grid  is  assumed.  If  hhhmm  is 
blank,  00000  is  assumed.  If  hhhmm  has  one  or  two  digits, 
they  represent  hours.  With  three  or  more  digits,  zeros 
will  be  added  at  the  beginning  of  the  field. 

VERTICAL  LEVEL  INTEGER  (2) 

The  vertical  level  part  of  the  grid  identifier  is  stored 
as  two  integers.  If  only  a single  level  is  needed,  the 
second  value  is  set  to  -1. 

VERTICAL  COORDINATE  INTEGER 

The  vertical  coordinate  is  stored  as  an  integer  with  the 
foil  owi  ng  values: 

0 - NONE 

1 = PRESSURE 
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2 - THETA 

3 - HEIGHT 

PARAMETER  NAME  CHARACTER* 1 2 

For  the  basic  me  t e o r o 1 o g i c a 1 parameters,  the  4-character 
GEMPAK  name  is  used. 


A grid  may  also  be  identified  by  a grid  number,  which  is  its  current 
position  in  the  grid  file.  Use  of  the  grid  number  may  be  convenient 
when  selecting  grids  from  a list.  However,  since  grids  are  sorted 
before  they  are  numbered,  the  number  corresponding  to  a grid  may 
change  wh  en  grids  are  added  to  or  deleted  fr  om  the  file. 


GRID  NAVIGATION  BLOCK: 

All  the  grids  in  a file  must  be  co-located-- that  is,  the 
information  locating  the  grid  on  the  earth  is  defined  once  for  the 
entire  file.  The  grid  points  must  be  evenly  spaced  in  some 
coordinate  system.  This  location  information  is  stored  in  a grid 
navigation  block.  The  subroutine  GR_JvlNAV  wi  1 I pack  the  navigation 
information  into  a navigation  block.  The  navigation  block  should  be 
declared  256  words  long. 

Following  is  a list  of  the  contents  of  a grid  navigation  block. 

Note  that  an  evenly  spaced  1 a t i t ud e / 1 ong i t ud e grid  has  projection 
type  ”CED” . The  numbers  are  all  real  numbers. 

VORD  CONTENTS 


1 Grid  definition  type 

1 = simple  map  projection 

2 = full  map  projection 

3 = graph 

2 Projection  (3-char  name  packed  in  real  word) 

3 Left  grid  number  (always  l) 

4 Bottom  grid  number  (always  l) 

5 Right  grid  number  (KX) 

6 Top  grid  number  (KY) 

7 Lower  left  latitude 

8 Lower  left  longitude 

9 Upper  right  latitude 

10  Upper  right  longitude 

11  Projection  angle  1 

12  Projection  angle  2 

13  Projection  angle  3 

14-256  Spares 
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GRID  ANALYSIS  BLOCK: 


In  addition  to  the  grid  navigation  block,  a single  grid  analysis 
block  may  be  saved  with  each  file.  This  block  contains 
information  used  in  performing  an  objective  analysis.  The 
subroutine  GRJvfBAN  packs  information  into  a Barnes  analysis  block. 
The  analysis  block  should  be  declared  to  be  128  words  long. 


The  grid  analysis  block  for  a Barnes  analysis  contains  the  following 
information.  The  numbers  are  all  real  numbers. 

WORD  CONTENTS  FOR  BARNES  ON  CED  GRID 


1 

2 

3 

4 

5 

6-9 

10-13 

14-17 

18-128 


Analysis  type  = 1.0 
De  1 t an 
De  1 t ax 
De  1 t ay 
Not  used 

Grid  area  bound  s 
Extend  area  bounds 
Da  t a area  bound  s 
Spares 


W)RD  CONTENTS  FOR  GENERAL  BARNES 


1 

2 

3-6 

7-10 

11-14 

15-18 

19-128 


Analysis  type  = 2.0 
De  1 t an 

Grid  extension  (grid  units) 
Grid  area 

Extend  area  bounds 
Data  area  bound  s 
Spares 


GRID  HEADER  BLOCK: 

A grid  header  block  may  also  be  saved  with  each  grid.  This  header 
contains  information  about  the  particular  grid.  The  GEMPAK  grid 
header  contains  two  (integer)  words  to  store  the  offset  in  half-grid 
units  of  the  current  grid  from  the  base  grid  defined  by  the 
navigation  block.  No  GEMPAK  programs  currently  use  these  words. 

W)RD  CONTENTS 


1 X offset  in  half-grid  units 

2 Y offset  in  half-grid  units 


ERROR  MESSAGES: 
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[GD 

-1] 

Fi  1 e 

* . . c anno  t not  be 

created. 

[GD 

-2] 

File 

. . . c anno  t not  be 

opened  . 

[GD 

-3] 

File 

c anno  t be  closed. 

[GD 

-4] 

Fi  1 e 

not  open. 

[GD 

-5] 

No  write  access  to  file* 

[GD 

-6] 

File 

r e ad/wr  ite  error* 

[GD 

-7] 

File 

...  is  not  a GEMPAK  grid  file. 

[GD 

-8] 

Grid 

navigation  block 

c anno t be  read 

[GD 

-9] 

I nva lid  grid  size* 

[GD 

-10] 

Grid 

a 1 ready  exists. 

[GD 

-11] 

Grid 

file  is  full. 

[GD 

-12] 

Grid 

does  not  exist. 

[GD 

-13] 

Grid 

header  length  is 

too  long. 

7-5 


GRID  (GD)  LIBRARY 


GD  Library  Calls 


GD_CLOS 

( i gd  f 1 n , 

/ i r e t ) 

GD_CREF 

( filnam,  navsz,  rnvblk,  ianlsz, 
/ igdfln,  i re t ) 

anlblk,  ihdrsz 

, maxg  r d , 

GD_JX5RD 

( igdfln. 

gdattm,  level,  ivcord, 

p a rm,  / iret  ) 

GD_GANL 

( igdfln, 

/ anlblk,  ianlsz,  i ret 

) 

GD_GGRD 

( igdfln,  ignum,  / gdattm,  level, 
igx,  i gy , i ghd  r , i r e t ) 

ivcord,  pa  rm, 

gr 

i d , 

GD_G  I DN 

( igdfln, 

ignum,  / gdattm,  level, 

ivcord,  pa  rm , 

iret  ) 

GD_GLEV 

( igdfln, 

gdattm,  ivcord,  maxi ev, 

/ levarr,  nlev. 

iret  ) 

GD_GNAV 

( igdfln, 

/ rnvblk,  navsz,  iret  ) 

GD_GNUM 

( igdfln, 

gdattm,  level,  ivcord, 

p a rm , / i g num , 

iret  ) 

GD_GT IM 

( igdfln, 

maxtim,  / t ima  r r , n t ime 

s , iret  ) 

GD_NGRD 

( igdfln, 

/ numgrd,  firstm,  lasttm,  iret  ) 

GD_OPNF 

( f i 1 n am , 
ihd  r sz  , 

wr  t f 1 g , / igdfln,  navsz 

maxg  r d , iret  ) 

, r n vb lk,  i an  1 

s z , 

anlblk, 

GD_OPNR 

( f i 1 n am , 
maxg  rd  , 

/ igdfln,  navsz,  rnvblk 
iret  ) 

, ianlsz,  anlblk, 

ihdrsz  , 

GD_RDAT 

( igdfln, 
i g h d r , 

gdattm,  level,  ivcord, 
iret  ) 

p a rm , / grid, 

igx 

, i gy , 

GD_SWRT 

( igdfln, 

wr  tflg,  / iret  ) 

GD_WDAT 

( igdfln, 
p a rm,  r 

grid,  i gx , i gy , i ghd  r , 
ewr  it,  / iret  ) 

gdattm,  level, 

ivcord  , 

GD_WPGD 

( igdfln, 
parm,  r 

grid,  igx,  igy,  ighdr, 
ewrit,  ipktyp,  nbits,  / 

gda  t tm,  level  , 
iret  ) 

ivcord , 

GDJWPPG 

( igdfln, 
i v c o r d , 
d i fmi  n , 

igrid,  lengrd,  igx,  igy,  ighdr,  gdattm, 
parm,  rewrit,  ipktyp,  nbits,  misflg,  ref 
/ iret  ) 

level , 

, scale, 
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7.1  GD_CLOS  - CLOSE  GRID  FILE 


This  subroutine  closes  a grid  file. 


GD_CLOS  ( IGDFLN , 

I RET  ) 

Input  parameters: 

IGDFLN 

I NTEGER 

File  n umb  e r 

Ou  t pu  t par  ame  t e r s : 

I RET 

INTEGER 

Return  code 

0 — no rma  1 return 
*3  = file  can’t  be  closed 
-4  = file  not  open 
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7.2  GD_CREF  - CREATE  GRID  FILE 


This  subroutine  creates  a new  GEMPAK5  grid  file.  If  MAXGRD  is  zero 
or  negative,  it  will  default  to  400.  IHDRSZ  is  the  length  of 
the  grid  header  which  will  be  stored  with  every  grid.  This 
header  is  intended  to  save  offsets  from  a base  grid,  but  is  not 


currently  used.  IHDRSZ  should  usually  be  set  to  2. 

GD_CREF  ( FILNAM, 
MAXGRD, 

NAVSZ,  RNVBLK, 
IGDFLN,  I RET  ) 

IANLSZ,  ANLBLK,  IHDRSZ, 

Input  parameters: 

FILNAM 

CHAR* 

File  name 

NAVSZ 

INTEGER 

Navigation  block  length  (256) 

RNVBLK  (NAVSZ) 

REAL 

Navigation  block 

IANLSZ 

INTEGER 

Analysis  block  length  (128) 

ANLBLK  (IANLSZ) 

REAL 

An  alysis  block 

IHDRSZ 

INTEGER 

Grid  header  length 

MAXGRD 

INTEGER 

Max  number  of  grids  in  file 

Ou  t p u t par  ame  t e r s : 

IGDFLN 

INTEGER 

Grid  file  number 

I RET 

INTEGER 

Return  code 

0 « normal  return 
-1  « file  cannot  be  created 
-13  = grid  header  too  long 
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7.3  GD_DGRD  - DELETE  GRID  FROM  FILE 


This  subroutine  deletes  a grid  from  a grid  file. 


GD_JXjRD  ( IGDFLN , 

GDATTM,  LEVEL, 

IVCORD,  PARM,  I RET  ) 

Input  parameters: 

IGDFLN 

INTEGER 

Grid  file  number 

GDATTM  (2) 

CHAR*  20 

GEMPAK  time 

LEVEL  ( 2 ) 

INTEGER 

Ve  r t i ca  1 1 eve  1 

IVCORD 

INTEGER 

Vertical  coordinate 

0 = none 

1 = PRES 

2 - THTA 

3 = HGHT 

PARM 

CHAR*  1 2 

Parameter  name 

Ou  t pu  t par  ame  t e r s : 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-4  = file  not  open 
-5  = no  write  access  to  file 
-6  = read/write  error 
-12  = grid  does  not  exist 
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7 . 4 GD_GANL 


This  subroutine  re 

GD_GANL  ( IGDFLN , 

Input  parameters: 
IGDFLN 

Output  parameters: 
ANLBLK  ( IANLSZ) 
IANLSZ 
I RET 


GET  ANALYSIS  BLOCK 


turns  the  analysis  block. 


ANLBLK, 

IANLSZ,  IRET  ) 

INTEGER 

Grid  file  number 

REAL 

Analysis  block 

INTEGER 

Length  of  anl  block 

INTEGER 

Return  code 

0 = normal  return 
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7.5  GD_GGRD  - READ  GRID  BY  NUMBER 


This  subroutine  reads  the  requested  grid  from  a grid  file  given 
the  grid  numbe  r . 

GD_GGRD  ( IGDFLN , IGNUM,  GDATTM , LEVEL,  IVCORD,  PARM,  GRID,  IGX, 
I GY , IGHDR , I RET  ) 

Input  parameters: 

IGDFLN  INTEGER  Grid  file  number 

IGNUM  INTEGER  Grid  number 

Output  parameters: 

GDATTM  (2) 

LEVEL  ( 2 ) 

IVCORD 
PARM 

GRID  ( IGX, I GY) 

IGX 
I GY 

IGHDR  ( IHDRSZ) 

I RET 

U = normal  return 
-4  = file  not  open 
-6  = read  error 
-12  = grid  does  not  exist 


CHAR*  20 

GEMPAK  times 

INTEGER 

Vertical  levels 

INTEGER 

Vertical  coordinate 

CHAR* 1 2 

Parameter  name 

REAL 

Gr  id  data 

INTEGER 

Number  of  horizontal  points 

INTEGER 

Number  of  vertical  points 

INTEGER 

Grid  header 

INTEGER 

Return  code 
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7.6  GD_G  I DN 

READ  GRID  IDENTIFIER 

This  subroutine  returns  a grid  identifier  given  the  grid  number 

GD_GIDN  ( IGDFLN , 

IGNUM,  GDATTM, 

LEVEL,  IVCORD,  PARM,  I RET  ) 

Input  parameters: 

IGDFLN 

INTEGER 

Grid  file  n umb  e r 

IGNUM 

INTEGER 

Grid  n umb  e r 

Ou  t pu  t par  ame  t e r s : 

GDATTM  (2) 

CHAR*  20 

GEMPAK  times 

LEVEL  ( 2 ) 

INTEGER 

Vertical  levels 

IVCORD 

INTEGER 

Vertical  coordinate 

PARM 

CHAR*  12 

Parameter  name 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-4  = file  not  open 
-6  = re  ad /write  error 
-12  = invalid  grid  number 
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7.7  GD_GLEV  - GET  GRID  LEVELS 


Th is  subroutine  returns  all  the  levels  present  in 
a given  date  and  vertical  coordinate.  Th e levels 
not  sorted. 

GD_GLEV  ( IGDFLN , 

Input  parameters: 

IGDFLN 
GDATTM  (2) 

IVCORD 
MAXLEV 


GDATTM,  IVCORD, 


INTEGER 
CHAR*  20 
INTEGER 
INTEGER 


MAXLEV,  LEVARR, 

Grid  file  numb 
GEMPAK  times 
Vertical  coord 
Maximum  number 


Output  parameters: 

LEVARR  ( 2 , NLEV)  INTEGER 
NLEV  INTEGER 
I RET  INTEGER 


Levels 

f 

Numbe  r 

0 

Return 

c 

0 = 

no 

-4  - 

f i 

-6  - 

r e 

ound 
f 1 eve 
ode 

rma  1 r 
1 e not 
ad/wr  i 


a grid  file  for 
returned  are 

NLEV,  I RET  ) 


r 

na  t e 

of  levels 


s found 

turn 
open 
e error 
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7.8  GD_GNAV  - GET  NAVIGATION  BLOCK 


This  subroutine  returns  the  navigation  block. 


GD_GNAV  ( IGDFLN , 

RNVBLK , 

Input  parameters: 

IGDFLN 

INTEGER 

Ou  tpu  t pa  r ame  t e r s : 

RNVBLK  (NAVSZ) 

REAL 

NAVSZ 

INTEGER 

I RET 

INTEGER 

NAVSZ,  I RET  ) 


Grid  file  numb  e r 


Navi gation  block 
Length  of  nav  block 
Return  code 

0 = no  rma  1 return 
-4  = file  not  open 
-6  = read/write  error 
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7.9  GD_GNUM  - GET  GRID  NUMBER 

This  subroutine  gets  the  grid  n umb er  for  the  requested  grid. 
GD_GNUM  ( IGDFLN , GDATTM,  LEVEL,  IVCORD,  PARM,  IGNUM,  IRET  ) 


Input  parameters: 

IGDFLN 

INTEGER 

File  numbe  r 

GDATTM  (2) 

CHAR  * 2 0 

GEMPAK  times 

LEVEL  ( 2 ) 

INTEGER 

Vertical  levels 

IVCORD 

INTEGER 

Vertical  coordinate 

0 = NONE 

1 = PRES 

2 = TPITA 

3 = HGHT 

PARM 

CHAR  * 1 2 

Par  ame  ter  name 

Ou  t pu  t par  ame  t e r s : 

IGNUM 

INTEGER 

Grid  n umb  e r 

IRET 

INTEGER 

Return  code 

0 - normal  return 
-4  = file  not  open 
-6  - read/write  error 
-12  = grid  does  not  ex 
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7.10  GD__GTIM  - GET  GRID  TIMES 


This  subroutine  returns  all  the  times  present  in  a grid  file. 

Only  the  first  times  are  returned.  They  are  sorted  from  earliest 
to  latest. 

GD_GTIM  ( IGDFLN , MAXTIM,  TIMARR,  NTIMES,  IRET  ) 

Input  parameters: 

IGDFLN  INTEGER  Grid  file  number 

MAXTIM  INTEGER  Maximum  numb  e r of  t ime  s 

Ou  t pu  t par  ame  t e r s : 

TIMARR  (NTIMES)  CHAR*  GEMPAK  times 

NTIMES  INTEGER  Number  of  times 

IRET  INTEGER  Return  code 

0 = normal  return 
-4  = file  not  open 
-6  = read/write  error 
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7.11  GD—NGRD  - RETURN  NUMBER  OF  GRIDS 

This  subroutine  returns  the  number  of  grids  in  a grid  file  along 
with  the  first  and  last  time. 

GD_NGRD  ( IGDFLN , NUMGRD , FIRSTM,  LASTTM,  IRET  ) 


Input  parameters: 

IGDFLN 

INTEGER 

Grid  file  number 

Output  par  ame  t e r s : 

NUMGRD 

INTEGER 

Number  of  grids 

FIRSTM 

CHAR*  20 

Earliest  timel  in  file 

LASTTM 

CHAR*  20 

Latest  timel  in  file 

IRET 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  not  open 
-6  - read  error 
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7.12  GD_OPNF  - OPEN  GRID  FILE 


This  subroutine  opens  an  existing  GEMPAK  grid  file.  If  the 
file  requires  shared,  write  access,  the  subroutine  GD_OPNR 
should  be  used. 

GD_OPNF  C FILNAM,  WRTFLG,  IGDFLN , NAVSZ,  RNVBLK,  IANLSZ,  ANLBLK 
IHDRSZ , MAXGRD , I RET  ) 

Input  parameters: 

FILNAM  CHAR*  File  name 

WRTFLG  LOG  I CAL  Flag  for  wr  ite  access 

Output  parameters: 

IGDFLN 
NAVSZ 

RNVBLK  (NAVSZ) 

IANLSZ 

ANLBLK  (IANLSZ) 

IHDRSZ 
MAXGRD 
I RET 

0 = n o rma  1 return 
-2  = file  cannot  be  opened 
-7  - not  a GEMPAK 5 grid  file 
-8  = nav  cannot  be  read 
-13  = grid  header  too  long 
-14  = file  name  is  blank 


INTEGER 

INTEGER 

REAL 

INTEGER 

REAL 

INTEGER 

INTEGER 

INTEGER 


File  n umb  e r 

Navigation  block  length 
Navigation  block 
Analysis  block  length 
Ana  lysis  block 
Grid  header  length 
Maximum  number  of  grids 
Return  cnde 
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7 ♦ 1 3 GD___OPNR  - OPEN  REALTIME  GRID  FILE 


This  subroutine  opens  an  existing  GEMPAK  grid  file  for  realtime 
data  access.  The  file  is  opened  with  shared,  write  access. 

GD__OPNR  ( FILNAM,  IGDFLN , NAVSZ,  RNVBLK,  IANLSZ,  ANLBLK , IHDRSZ, 
MAXGRD , I RET  ) 

Input  parameters: 

FILNAM  CHAR*  File  name 

Ou  t p u t par  ame  t e r s : 

IGDFLN 
NAVSZ 

RNVBLK  (NAVSZ) 

IANLSZ 

ANLBLK  (IANLSZ) 

IHDRSZ 
MAXGRD 
I RET 

0 - normal  return 
-2  * file  cannot  be  opened 
- 7 « not  a GEMPAK5  grid  file 
-8  - nav  cannot  be  read 
-13  - grid  header  too  long 
-14  = file  name  is  blank 


INTEGER  File  number 

INTEGER  Navigation  block  length 

REAL  Navigation  block 

INTEGER  Analysis  block  length 

REAL  Analysis  block 

INTEGER  Grid  header  length 

INTEGER  Maximum  number  of  grids 

INTEGER  Return  cod 
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7.14  GD _RDAT  - READ  GRID  FROM  FILE 


This  subroutine  reads  the  requested  grid  from  a grid  file. 


GD__RDAT  ( IGDFLN , 
IGHDR , 

GDATTM,  LEVEL, 
I RET  ) 

IVCORD,  PARM,  GRID,  IGX,  I GY , 

Input  parameters: 

IGDFLN 

INTEGER 

Grid  file  number 

GDATTM  (2) 

CHAR*  20 

GEMPAK  t ime  s 

LEVEL  ( 2 ) 

INTEGER 

Vertical  1 eve  1 s 

IVCORD 

INTEGER 

Vertical  coordinate 

0 - NONE 

1 - PRES 

2 - THTA 

3 - HGHT 

PARM 

CHAR* 1 2 

Parameter  name 

Output  par  ame  t e r s : 

GRID  (IGX.IGY) 

REAL 

Grid  data 

IGX 

INTEGER 

Number  of  horizontal  points 

I GY 

INTEGER 

Number  of  vertical  points 

IGHDR  ( IHDRSZ) 

INTEGER 

Grid  header 

I RET 

INTEGER 

Return  code 

0 - n o rma  1 return 
-4  = file  not  open 
- 6 = read /wr  ite  error 
-12  = grid  does  not  exist 
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7.15  GD_SWRT  - SET  WRITE  FLAG  IN  GRID  FILE 

This  subroutine  sets  the  internal  write  flag  for  a grid  file.  If 
the  file  is  being  changed  from  READ  ONLY  to  WRITE  access,  DM—CHNG 
will  close  it  and  reopen  it  for  WRITE  access. 

GD_SWRT  ( IGDFLN , WRTFLG , I RET  ) 

Input  parameters: 

IGDFLN  INTEGER  Grid  file  number 

WRTFLG  LOG I CAL  Write  flag  ( T = write  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
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7.16  GD_WDAT  - WRITE  GRID  TO  FILE 


This  subroutine  writes  a grid  into  a grid  file. 

GD_WDAT  ( IGDFLN,  GRID,  IGX,  I GY,  IGHDR , GDATTM,  LEVEL,  IVCORD, 
PARM,  REWRIT,  I RET  ) 


Input  par  ame  t e r s : 
IGDFLN 

GRID  ( IGX, I GY) 
IGX 
I GY 

IGIIDR  ( IHDRSZ ) 
GDATTM  (2) 
LEVEL  ( 2 ) 
IVCORD 


INTEGER 

REAL 

INTEGER 

INTEGER 

INTEGER 

CHAR* 20 

INTEGER 

INTEGER 


PARM  CHAR* 12 

REWRIT  LOGICAL 

Output  parameters: 

I RET  INTEGER 


Grid  file  n umb  e r 
Grid  data 

Number  of  horizontal  points 
Number  of  vertical  points 
Grid  header 
GEMPAK  t ime  s 
Vertical  levels 
Vertical  coordinate 

0 = NONE 

1 = PRES 

2 = TIITA 

3 = HGHT 
Parameter  name 


Flag 

to  replace  exi 

sting 

Return  code 

0 = 

no  rma 1 return 

-4  = 

file  not  open 

-5  = 

no  wr  ite  access 

-6  = 

read/  wr  ite  e 

r r o r 

-9  = 

invalid  grid 

size 

-10  = 

grid  already 

exist 

-11  = 

grid  file  is 

full 
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7.17  GD__WPGD  - WRITE  PACKED  GRID 


This  subroutine  packs  an  input  grid  of  real  values  and  writes  it 
to  a grid  file.  I PKTYP  should  be  one  of  the  following  parameter 
names  from  GEMPRM.PRM: 


MDGNON 

No  grid 

packing 

MDGGR B 

Pack  in 

GEMPAK  GRIB 

f o rma  t 

given 

nb  i t s 

MDGDEC 

Pack  in 

GEMPAK  GRIB 

f o rma  t 

given 

precision 

MDGD IF 

Pack  in 

GEMPAK  DIF 

f o rma  t g 

i ve n 

nb  i t s 

If  the  packing  type 

i s MDGNON  ; 

, the  real  data  wi 1 1 

be  stored  as  if 

GD_\VDAT  we  re  called.  If  MDGGR  B o r MDGD  IF  is  specified,  the 
number  of  bits  given  in  NBITS  will  be  used  to  store  the  data. 

For  packing  type  MDGDEC , NBITS  is  the  precision.  The  grid  data 
is  multiplied  by  10  **  NBITS  and  rounded  to  the  nearest  integer. 
The  actual  number  of  bits  used  to  store  the  data  is  the  minimum 
n umb  er  required  to  store  the  resulting  integers. 

GD_WPGD  ( IGDFLN,  GRID,  IGN,  I GY,  IGHDR,  GDATTM,  LEVEL,  IVCORD, 
PARM,  REWRIT,  I RET  ) 

Input  parameters: 

IGDFLN 

GRID  ( IGX, I GY) 

IGX 
I GY 

IGHDR  (IHDRSZ) 

GDATTM  (2) 

LEVEL  ( 2 ) 

IVCORD 


PARM 
REWRIT 
I PKTYP 
NBITS 

Output  parameters: 
I RET 


0 

n o rma  1 re 

turn 

-4 

= 

file  not 

open 

-5 

= 

no  wr  i t e 

access 

-6 

- 

read/  wr  i 

t e error 

-9 

= 

i nva lid  g 

rid  size 

-10 

= 

grid  alre 

ady  e x i s 

- 1 1 

= 

grid  file 

is  full 

INTEGER 

REAL 

INTEGER 

INTEGER 

INTEGER 

CHAR*  20 

INTEGER 

INTEGER 


CHAR* 12 
LOG  I CAL 
INTEGER 
INTEGER 


Grid  file  numb  e r 
Grid  data 

Number  of  horizontal  points 
Number  of  vertical  points 
Grid  header 
GEMPAK  times 
Vertical  levels 
Vertical  coordinate 

0 = NONE 

1 - PRES 

2 = THTA 

3 = IIGIIT 
Par  ame  ter  n ame 

Flag  to  replace  existing  grid 
Packing  type 

Number  of  bits  / precision 


INTEGER 


Return  code 
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7.18  GD_WPPG  - WRITE  PRE-PACKED  GRID 


This  subroutine  writes  a grid  that  is  already  packed  to  a grid 
file.  I PKTYP  should  be  one  of  the  following  parameter  names: 
MDGGRB  Packed  in  GEMPAK  GRIB  format 

REF  = minimum  value 
SCALE  * 2 **  N 

MDGNMC  Packed  in  NMC  f o rma  t 

REF  - average  value 
SCALE  - 1 / 2 **  N 

MDGDIF  Packed  in  GEMPAK  DIF  format 

REF  = first  non-missing  point  in  grid 


SCALE  = 


DIFMIN  = 

GD_WPPG  ( IGDFLN , 

I GRID,  LENGRD 

IVCORD, 

PARM,  REWRIT, 

SCALE, 

DIFMIN,  IRET  ) 

Input  parameters: 

IGDFLN 

INTEGER 

GRID  ( IGX, I GY ) 

REAL 

IGX 

INTEGER 

I GY 

INTEGER 

IGHDR  ( IHDRSZ) 

INTEGER 

GDATTM  (2) 

CHAR*  20 

LEVEL  ( 2 ) 

INTEGER 

IVCORD 

INTEGER 

PARM 

CHAR* 1 2 

REWRIT 

LOGICAL 

I PKTYP 

INTEGER 

NBITS 

INTEGER 

MISFLG 

LOGICAL 

REF 

REAL 

SCALE 

REAL 

DIFMIN 

REAL 

Output  par  ame  t e r s : 

IRET 

INTEGER 

scaling  term  for  differences 
minimum  value  of  difference  field 

IGX , I GY,  IGHDR , GDATTM,  LEVEL, 

I PKTYP , NBITS , MISFLG,  REF, 


Grid  file  numbe  r 
Grid  data 

Number  of  horizontal  points 
Number  of  vertical  points 
Grid  header 
GEMPAK  t ime  s 
Vertical  levels 
Vertical  coordinate 

0 = NONE 

1 = PRES 

2 - THTA 

3 = HGHT 
Par ame  ter  name 

Flag  to  replace  existing  grid 

Packing  type 

Numbe  r of  bits 

Missing  data  flag 

Reference  value 

Scaling  factor 

DIF  reference  value 


Return  code 

0 * normal  return 
-4  - file  not  open 
- 5 - no  wr  ite  access 
-6  = read/  write  error 
-9  “ invalid  grid  size 
-10  - grid  already  exists 
-11  = grid  file  is  full 
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CHAPTER  8 

GRAPHICS  (GG)  LIBRARY 


GG_JiOX  Draw  box 

GG_I NIT  Initialize  GEMPLT 

GG__LTLN  D r aw  lat/lon  grid 

GG_MAP  Draw  map 

GQJ'ANL  Define  vi  ew  region 

GQ.J’RO J Process  PRO J input 

GG_S AO I Define  AO IPS  satellite  nav 

GG SDEV  Set  graphics  device 

.SGRF  Define  graph  coordinate  system 

.SKEW  Set  up  skew  T plot 

.SMAP  Set  ma p projection 

.SNPG  Define  NPGS  satellite  nav 

GG_WSTR  Write  title 
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Graphics  (GG)  Library  Summary 


The  graphics  library  is  used  to  simplify  and  standardize  GEMPLT 
library  calls.  Routines  to  initialize  graphics,  to  set  the 
graphics  device  and  projection,  and  to  drawmaps  and  titles  are 
included. 

GG — SMAP  is  used  to  define  both  the  projection  type  and  graphics 
area.  It  can  be  used  for  map,  graph  and  satellite  overlay 
projections.  The  current  valid  projections  are  listed  in  the 

documentation  for  GG SMAP.  Details  for  defining  map  projections 

can  be  found  in  the  GEMPLT  documentation  for  GSMMAP  and  GSMPRJ . 


ERROR  MESSAGES: 


[GG 

-1] 

[GG 

-2] 

[GG 

-3] 

[GG 

-4] 

[GG 

-5] 

[GG 

-6] 

[GG 

-7] 

[GG 

-8] 

[GG 

-9] 

[GG 

-10] 

[GG 

-11] 

Invalid  mode  set. 

Area  ...  is  an  invalid  graphics  area. 
Error  initializing  GEMPLT. 

Error  in  graph  mode  setup. 

Projection  ...  is  invalid. 

Device  ...  is  invalid. 

No  map  drawn. 

Margins  requested  with  NM. 

Invalid  region  specified. 

Panel  not  recognized. 

Error  in  setting  view. 
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GG BOX 

GG_INIT 

GG_LTLN 

GG_MAP 

GG _J>ANL 

GG_PROJ 

GG_S  AO  I 

GG_SDEV 

GG_SGRF 

GG_SKEW 

GG_SMAP 

GG_SNPG 

GG_WSTR 


GG  Library  Calls 

( region,  icolor,  ilntyp,  ilnwid,  / iret  ) 

( mo  d e , / iret  ) 

( latlon,  / iret  ) 

( ma  p , / iret  ) 

( panel,  / iret  ) 

( proj,  / cprj,  angle,  zmarg,  angflg,  iret  ) 

( garea,  / iret  ) 

( device,  / iret  ) 

C proj,  garea,  / iret  ) 

( xaxis,  yaxis,  parm,  / ratio,  xstrt,  ystrt,  xstop,  ystop, 
x 1 b 1 , nxlbl,  / iret  ) 

( proj,  garea,  / iret  ) 

( garea,  / iret  ) 

( string,  line,  / iret  ) 
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8 . 1 GG_BOX  - DRAW  BOX 


This  subroutine  draws  a box  around  the  specified  area.  If  the 
color  is  zero,  no  box  is  drawn.  If  the  line  type  is  zero,  the 
default  line  type  is  used.  If  the  width  is  0,  a width  of  1 is 
set. 

GG_JBOX  ( REGION,  I COLOR,  ILNTYP,  ILNWID,  I RET  ) 

Input  parameters: 

REGION  CHAR*  Coordinate  region 

’D*  * device 
’ N ’ «■  no  rma  1 i z e d 
* V ’ « v i ew 
’P’  - plot 

I COLOR  INTEGER  Color  number 

ILNTYP  INTEGER  Line  type 

ILNWID  INTEGER  Line  width 

Ou  t pu  t par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 « normal  return 
-9  * invalid  region 
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8.2  GG_IN IT  - INITIALIZE  GEMPLT 


This  subroutine  initializes  the  GEMPLT  plotting  package.  The 
current  map  file  is  set  to  the  global  map  file  name  found  in 
SMAPFIL.  Thus,  it  is  necessary  to  call  IP__INIT  before  calling  this 
subroutine.  If  IP_INIT  has  not  been  called,  the  map  file  will  not 
be  def ined . 

In  the  past,  this  subroutine  set  default  margins  for  map  and  graph 
mode.  Currently,  margins  will  not  be  set  or  changed  in  GG_INIT. 
Margins  can  be  specified  by  the  user  in  the  input  for  PROJ . The 
margin  definition  will  be  extracted  by  GG_j>ROJ  and  set  in  GG__SMAP . 

GG_INIT  ( MODE,  IRET  ) 

I npu t par  ame  t e r s : 

MODE  INTEGER  Plot  mode 

0 = no  change 

1 « map 

2 = graph 

Output  par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 = n o rma  1 return 
-3  = error  starting  GEMPLT 
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8.3  GG _XTLN  - DRAW  LAT/LON  GRID 


This  subroutine  draws  1 a t i tude/ 1 ong i tude  lines  on  the  graphics 
device.  The  LATLON  string  should  contain  the  line  color,  line 
type,  line  width,  label  frequency  and  latlon  increment  information 
separated  by  slashes.  The  latter  consists  of  the  latitude  and 
longitude  increments  separated  by  semicolons.  If  LATLON  is  blank, 
no  lines  will  be  drawn 

GG_LTLN  ( LATLON,  I RET  ) 

Input  parameters: 

LATLON  CHAR*  Line  c o 1 / t yp/wd  t h/ 1 b 1 f r / i n c 

Ou  t p u t par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 ==  norma  1 return 
-13  = lines  not  dr  awn 
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8 . 4 GG_MAP  - DRAW  MAP 


This  subroutine  draws  a map  on  the  graphics  device.  The  MAP  string 
should  contain  the  map  color,  line  type  and  line  width  separated 
by  slashes  (/).  If  the  line  type  or  width  is  zero  or  undefined, 
the  current  value  is  used.  If  MAP  is  a blank,  a default  color 
of  1 will  be  used. 

GG _MAP  ( MAP,  IRET  ) 

Input  parameters: 

MAP  CHAR*  Map  color/line  type /width 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
- 7 = ma  p not  dr  awn 
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8.5  GG_PANL  - DEFINE  VIEW  REGION 


This  subroutine  sets  the  view  region  for  the  panel  specified. 

If  requested,  a box  will  be  drawn  around  the  region. 

The  input  for  PANEL  specifies  the  panel  location,  panel  outline 
color,  line  type  and  width  separated  with  slashes.  The  panel 
location  determines  the  location  of  the  view  region  on  the 


g r aph ics  device, 
abbreviation  as 

It  may  be  specified 
foil ows  : 

using  a number  or 

NUMBER 

ABBREVIATION 

DESCRIPTION 

0 

ALL 

En tire  device 

1 

UL 

Upper  left  quadrant 

2 

UR 

Upper  right  quadrant 

3 

LL 

Lower  left  quadrant 

4 

LR 

L owe  r right  quadrant 

5 

L 

Left  half 

6 

R 

Right  half 

7 

T 

Top  half 

8 

B 

B o 1 1 om  half 

Horizontal  or  vertical  panels  which  divide  the  screen  into  thirds 
or  fourths  may  be  created  using  the  syntax  Tij  where  T is  either 
V for  vertical  or  H for  horizontal,  i is  3 for  thirds  or  4 for 
fourths,  and  j is  the  actual  panel  counting  from  the  top  or  left. 

The  view  region  may  also  be  specified  as  four  numbers  separated 
with  semicolons,  giving  the  lower  left  and  upper  right  corners 
in  fractions  of  the  graphics  display  area. 

GG_J>ANL  ( PANEL,  I RET  ) 

Input  pa  r ame  t e r s : 

PANEL  CHAR  * Inputfor  PANEL 

Ou  t p u t par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 = n o rma  1 return 
- 9 = i nva lid  region 
-10  = panel  not  recognized 
-11  = error  in  setting  view 
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8.6  GG_PROJ  - PROCESS  PROJ  INPUT 


This  subroutine  decodes  the  user  input  for  the  parameter  PROJ. 
The  input  may  contain  parts  separated  with  slashes.  The  first 
part  must  be  the  projection  name.  Other  parts  may  include: 


NM 

3 numbers 

4 numbers 


margins  will  be  set  to  0 
angles  for  a full  map  projection 
ma  r g i n s 


If  angles  are  input,  ANGFLG  will  be  set  to  indicate  that  a full  map 
projection  was  specified.  If  margins  are  not  input  and  NM  is  also 
not  included  in  the  string,  default  margins  will  be  set.  The 
default  for  map  projections  is  (0, 3,0,0)  and  for  graphs  is 
(6,4,4,  l).  A complete  description  of  projections  and  margins  can 
be  found  in  the  GEMPLT  Programmer’s  Guide. 

GG_PROJ  ( PROJ,  CPRJ , ANGLE,  ZMARG , ANGFLG,  IRET  ) 


Input  parameters: 

PROJ  CHAR* 


Input  projection  string 


Ou  t pu  t par  ame  t e r s : 
CPRJ 

ANGLE  (3) 

ZMARG  (4) 

ANGFLG 

IRET 


CHAR* 

REAL 

REAL 

LOGICAL 

INTEGER 


Projection  name 
Projection  angles 
Ma  r g i n s 
Ang  1 e flag 
Return  code 

0 = no  rma  1 return 
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8.7  GG_S  AO I - DEFINE  AO I PS  SATELLITE  NAV 


This  subroutine  sets  the  satellite  navigation  for  an  AO I PS  image. 
In  this  case,  GAREA  is  the  name  of  an  AO I PS  image  file. 

GG_S AO I ( GAREA,  I RET  ) 


Input  parameters: 
GAREA 

CHAR* 

Ima  g e 

name 

Output  parameters: 
I RET 

INTEGER 

Return 

code 

0 = 

normal  return 

-5  = 

invalid  projection 
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8.8  GG_SDEV  - SET  GRAPHICS  DEVICE 


This  subroutine  sets  the  graphics  device  in  GEMPLT . If  an 
error  is  returned  from  GEMPLT,  an  error  message  is  written. 

GG_SDEV  ( DEVICE,  I RET  ) 

Input  parameters: 

DEVICE  CHAR*  Device  name 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
-6  = invalid  device  specified 
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8.9 

GG_SGRF 

- DEFINE  GRAPH  COORDINATE  SYSTEM 

Th  i s 

subroutine 

defines  an  output  graph  coordinate 

sys  t em.  PROJ 

mu  s t 

be  : 

POL 

polar  coordinates 

LIN 

linear  x and  y 

LOG 

linear  x,  logarithmic  y 

KAP 

linear  x,  y **  KAPPA  ( KAPPA  = 

2 / 7 ) 

The  graphics  area  GAREA  is  specified  by  five  numbers  corresponding 
to  the  lower  left  x,  lower  left  y,  upper  right  x,  upper  right  y and 
the  he i gh t - t o -wi  d t h ratio  of  the  plotting  area.  If  the  plot  ratio 
is  unspecified  or  0,  the  entire  area  inside  the  margins  will  be  used. 


GG_SGRF  ( PROJ , GAREA,  I RET  ) 


Input  parameters: 
PROJ 

CHAR* 

Projecti on  type 

GAREA 

CHAR* 

Graphics  area 

Output  parameters 
I RET 

INTEGER 

Return  code 

0 = normal  return 
-4  = error  specifying  g 
-5  = invalid  projection 
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8.10  GG_SKEW  - SET  UP  SKEW  T PLOT 


This  subroutine  sets  the  graphics  for  a skew  T plot.  The  aspect 
ratio  is  computed.  A section  of  a standard  skew  T is  determined 
and  GSGRAF  is  called.  IN_j\XIS  should  be  called  first  for  both 
XAXIS  and  YAXIS  to  establish  user  input  or  default  bounds. 

GG_SKEW  ( XAXIS,  YAXIS,  PARM,  RATIO,  XSTRT,  YSTRT , XSTOP , 

YSTOP , XLBL , NXLBL , I RET  ) 

Input  parameters: 

XAXIS  CHAR*  Input  for  X axis 

YAXIS  CHAR*  Input  for  Y axis 

PARM  CHAR*  Parameter  list  or  function 

Input  and  output  parameters: 

RATIO  REAL 

XSTRT  REAL 

YSTRT  REAL 

XSTOP  REAL 

YSTOP  REAL 

XLBL  (NXLBL)  REAL 
NXLBL  INTEGER 

Output  parameters: 

IRET  INTEGER  Return  code 

0 « no rma  1 return 
- 1 2 - no  t emp erature  parm 


Aspect  ratio 
Minimum  on  T axis 
Maximum  on  P axis 
Maximum  on  T axis 
Minimum  on  P axis 
Label  values  for  T axis 
Number  of  label  values 
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8.11  GG_SMAP  - SET  MAP  PROJECTION 


This  subroutine  defines  the  map  or  graph  projection  and  graphics 
area  in  GEMPLT.  If  a GEMPLT  error  is  encountered,  an  error 
message  is  written.  If  PROJ  - DEF , the  current  map  projection 
will  be  retained.  No  validity  check  will  be  made. 

The  following  simple  map  projections  may  be  specified: 

MER  Me  r c a t o r 

NPS  North  Polar  Stereographic 

SPS  South  Polar  Stereographic 

LCC  Northern  Hemisphere  Lambert  Conic  Conformal 

SCC  Southern  Hemisphere  Lambert  Conic  Conformal 

CED  Cylindrical  Equidistant 

MCD  Modified  Cylindrical  Equidistant 

UTM  Universal  Transverse  Mercator 

NOR  North  Orthographic 

SOR  South  Orthographic 

The  following  full  map  projections  may  also  be  specified: 

MER  Me  r c a t o r 

CED  Cylindrical  Equidistant 

MCD  Modified  Cylindrical  Equidistant 

STR  Polar  Stereographic 

AED  Azimuthal  equidistant 

ORT  Orthographic 

LEA  Lambert  equal  area 

GNO  Gnomon  ic 

LCC  Northern  Hemisphere  Lambert  Conic  Conformal 

SCC  Southern  Hemisphere  Lambert  Conic  Conformal 

UTM  Universal  Transverse  Mercator 

TVM  Transverse  Mercator 

There  are  two  satellite  projections  available: 

AO I AO IPS/2  navigation 

NPG  Naval  Postgraduate  School  navigation 

The  graph  projections  are: 


POL 

polar 

coordinates 

LIN 

1 inear 

x and  y 

LOG 

1 inear 

x , 1 o g a r i thmi  c 

y 

KAP 

linear 

x,  y **  KAPPA 

( KAPPA  - 2/7  ) 

GG_SMAP  ( PROJ,  GAREA,  PROCUR , GARCUR , I RET  ) 
Input  parameters: 

PROJ  CHAR*  Map  projection 

GAREA  CHAR*  Graphics  area 

Output  par  ame  t e r s : 
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I RET 


INTEGER  Return  code 

0 = normal  return 
-2  = invalid  graphics  area 
-5  - invalid  projection 
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8.12  GG_SNPG  - DEFINE  NPGS  SATELLITE  NAY 


This  subroutine  sets  the  satellite  navigation  for  a Naval 
Postgraduate  School  image. 

GG_SNPG  ( GAREA,  I RET  ) 


Input  parameters: 
GAREA 

CHAR* 

Ima  g e 

name 

Output  parameters: 
I RET 

INTEGER 

Return 

code 

0 = 
-5  - 

norma  1 
i nva  1 i d 

return 

projection 
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8.13  GG_WSTR  - WRITE  TITLE 


This  subroutine  writes  a string  on  a graphics  plot.  The 
string  will  be  centered  on  the  line  specified.  If  LINE  = 0, 
string  will  be  written  one  line  from  the  bottom  of  the  plot. 

GGJVSTR  ( STRING,  LINE,  IRET  ) 


Input  parameters: 

STRING  CHAR* 

LINE  INTEGER 


String  to  be  written 
Line  number 

<0  - lines  from  bottom 
0 - b o 1 1 om  line 
>0  - lines  from  top 


Output  parameters: 

IRET  INTEGER  Return  code 

0 — normal  return 


the 
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GR^ALGN 
GR^AXLV 
GR_CLVL 
GRJCMPV 
GR_CVAL 
GRJILE 
GR_FIXA 
GR_GALM 
GIL_GT  IM 
GR_I  NTP 
GR_LEVL 
GR_XIST 
GR_LTLN 
GRJvlBAN 
GR^MNAV 
GIUOPEN 

GR PACK 

GR PL  IN 

GR PLOC 

GR_RBAN 

GR_RNAV 

GR_ROBS 

GR_SCAL 

GR SNAV 

GIL-STAT 

GRJM3BS 

GR_WTRM 


Align  grid  corners 
C omp ute  axis  labels 
Select  contour  levels 
Compute  contour  levels 
Select  contour  interval 
Open  grid  file  for  graphics 
Fix  area 

Find  grid  subset  area 
Process  input  time 
Interpolate  grid  data 
Process  input  level 
List  grids  in  file 
Get  lat/lon  at  grid  points 
Make  Barnes  analysis  block 
Make  navigation  block 
Open  grid  file 
Decode  grid  packing  info 
Get  points  for  cross  section 
Get  input  for  grid  point 
Read  Barnes  analysis  block 
Read  navigation  block 
Read  grid  relative  winds 
Compute  grid  scaling 
Set  navigation  in  GEMPLT 
C omp  ute  grid  statistics 
Get  observed  winds 

Write  grid  identifier  to  terminal 
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Grid  Support  (GR)  Library  Summary 


The  grid  support  library  subroutines  allow  manipulation  of 
information  in  GEMPAK  grid  files.  Subroutines  are  available  to 
create  and  decode  analysis  and  navigation  block  information.  Also 
included  are  subroutines  to  open  grid  files,  set  the  grid 
navigation  in  GEMPLT , check  grid  boundaries,  and  define  contour 
levels. 


GkJ.IST  is  available  to  list  all  the  grids  in  a file.  In  the 
past,  this  subroutine  would  list  grids  based  upon  partial  grid 
specifications.  Currently,  it  lists  all  the  grids  in  a file. 

Error  codes: 


[GR 

3] 

[GR 

2] 

[GR 

-1] 

[GR 

-2] 

[GR 

-3] 

[GR 

-4] 

[GR 

-5] 

[GR 

-6] 

[GR 

-7] 

[GR 

-8] 

[GR 

-9] 

[GR 

-10] 

[GR 

-11] 

[GR 

-12] 

[GR 

-13] 

[GR 

-14] 

[GR 

-15] 

[GR 

-16] 

[GR 

-17] 

[GR 

-18] 

User  typed  EXIT. 

Note:  data  have  been  internally  rescaled. 

Invalid  input  time. 

Invalid  input  level. 

Wind  components  not  found. 

File  ...  cannot  be  opened* 

Invalid  grid  spacing. 

Invalid  navigation  block. 

Error  defining  grid  navigation  in  GEMPLT. 

Invalid  data  range. 

Invalid  grid  or  grid  subset  size. 

Invalid  analysis  type. 

N umb er  of  output  LUN s mu st  be  positive. 

INPUT  ...  for  grid  point  is  invalid. 

Error  in  getting  KX  and  KY  from  grid  common  block. 
Data  could  not  be  scaled. 

START  and  STOP  values  for  axis  are  missing. 

Invalid  input  for  GPACK . No  packing  will  be  done. 
Axis  labelling  interval  cannot  be  determined. 
Endpoints  are  too  close  together. 
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GIUJVLGN 

GICAXLV 

GR_CLVL 

GRJCMPV 

GRjCVAL 

GR^FILE 

GR F IXA 

GR_GALM 

GIUGTIM 

GR INTP 

GILXEVL 

GR_LIST 

GRJLTLN 

GR_MBAN 

GRW_MNAV 

GR_OPEN 

GR PACK 

GR PL  IN 

GR PLOC 

GR RBAN 

GR^RNAV 


GR  Library  Calls 

( grdin,  deltax,  deltay,  / grdout,  kx , ky , iret  ) 

( dmin,  dmax , start,  stop,  rint,  stradj,  stpadj,  / v, 
nv , iret  ) 

( maxi vl , cmin,  cmax,  cint,  dmin,  dmax,  / nlvl,  clvl, 
iret  ) 

( rmin,  rmax,  rint,  maxlvl,  / nlvl,  clvl,  iret  ) 

C rmin,  rmax,  / rint,  iret  ) 

( gdfile,  wrtflg,  / gdcur,  igdfln,  / lasttm,  maxgrd, 
iret  ) 

( igdfln,  area,  / areout,  iret  ) 

( kx , ky , / imin,  jmin,  imax,  jmax  , iret  ) 

C gdattm,  firstm,  lasttm,  / gdtiml,  gdtim2,  iret  ) 

( inttyp,  gx,  gy,  npts,  kx , ky , grid,  / sdint,  iret  ) 

C glevel,  / levell,  level2,  iret  ) 

( nlun,  luns  , igdfln,  mesage,  / answer,  iret  ) 

( kx , ky , / rlat,  rlon,  iret  ) 

( deltan,  deltax,  deltay,  gbnds,  ebnds,  dbnds,  / anlblk, 
iret  ) 

( proj,  kx , ky , rlatl,  rlonl  , rlat2,  rlon2,  angll,  angl2, 
angl3,  angflg,  / rnvblk,  iret  ) 

( gdfile,  wrtflg,  / gdcur,  igdfln,  / lasttm,  anl,  rnav, 
numgrd,  maxgrd,  newfil,  iret  ) 

( gpack,  / ipktyp,  nbits,  iret  ) 

( endpts,  / npts,  rgx,  rgy,  rlat,  rlon,  iret  ) 

( gpoint,  / rgx,  rgy,  rlat,  rlon,  iret  ) 

( anlblk,  / deltan,  deltax,  deltay,  gbnds,  ebnds,  dbnds, 

iextnd,  iret  ) 

( rnvblk,  / proj,  kx , ky , iret  ) 
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GR_ROBS 

GR_SCAL 

GR SNAV 

GIL_STAT 

GRJWBS 

GR_WTRM 


( iflno,  gdtime,  level,  ivcord,  / gridl,  grid2,  igx, 
igy , i ret  ) 

( cscale,  kx , ky,  imin,  jmin,  imax,  jmax,  / grid,  / iscale, 
rmi n , rmax  , i r e t ) 

( navsz,  rnvblk,  / iret  ) 

( z,  kx , ky,  imin,  jmin,  imax,  jmax,  / rmin,  rmax,  ravg, 
rdev , iret  ) 

( iflno,  gdtime,  level,  ivcord,  / gridl,  grid2,  wcmp , 
vinks,  wparm,  igx,  igy,  iret  ) 

( lun,  title,  ignum,  gdattm,  level,  ivcord,  parm,  / iret  ) 


9-4 


GRID  SUPPORT  (GR)  LIBRARY 


9.1  GR_ALGN  - ALIGN  GRID  CORNERS 


This  subroutine  aligns  a grid  on  grid  points.  The  lower  e 
corner  specified  in  the  input  grid  corners  is  moved  to  the  left 
and  down  if  necessary.  The  input  and  output  grid  corners  are 
arrays  ordered  as  follows:  lower  left  lat,  lower  left  Ion,  upper 

right  lat,  upper  right  Ion. 


GIUJVLGN  ( GRDIN , 

DELTAX,  E 

Input  par  ame  t e r s : 

GRDIN  (4) 

REAL 

DELTAX 

REAL 

DELTAY 

REAL 

Output  parameters 

GRDOUT  (4) 

REAL 

KX 

INTEGER 

KY 

INTEGER 

I RET 

INTEGER 

GRDOUT , KX,  KY,  I RET  ) 


Input  grid  corners 
X grid  spacing 
Y grid  spacing 


Aligned  grid  corners 
N umb er  of  points  in  x dir 
Number  of  points  in  y dir 
Return  code 

0 - normal  return 
-5  - invalid  grid  spacing 
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9.2  GR_AXLV  - COMPUTE  AXIS  LABELS 


This  subroutine  defines  axis  label  values  given  the  data  range, 
the  axis  range  and  labeLling  interval,  if  it  is  defined.  A suitable 
label  interval  is  determined  automatically  if  it  is  missing. 

GR_AXLV  ( EMIN , EMAX,  START,  STOP,  RINT,  STRADJ  , STPADJ  V NV 
I RET  ) 


Input  parameters: 


DMIN 

REAL 

EMAX 

REAL 

START 

REAL 

STOP 

REAL 

RINT 

REAL 

STRADJ 

LOGICAL 

STPADJ 

LOGICAL 

put  par  ame  t e r s : 

V ( NV  ) 

REAL 

NV 

INTEGER 

I RET 

INTEGER 

Minimum  data  value 

Maximum  data  value 

Starting  value  on  axis 

Stopping  value  on  axis 

Labelling  interval 

Flag  to  permit  adjusting  START 

Flag  to  permit  adjusting  STOP 


Array  of  label  values 
Number  of  label  values 
Return  code 

0 = normal  return 
-15  = START  or  STOP  missing 
-17  * Scaling  cannot  be  done 
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9.3  GR_CLVL  - SELECT  CONTOUR  LEVELS 


This  subroutine  selects  contour  levels  given 
values  in  the  grid  subset  area  input  for  the 
and  the  minimum  and  maximum  grid  values.  If 
input  value  is  missing,  the  data  value  will 
interval  is  non-positive,  a contour  interval 
contours  will  be  selected. 


the  rang  e of 
contour  i n t e 
the  minimum 
be  used.  If 
p r oduc i ng  f i 


data 
r va  1 

or  maximum 
the  contour 
ve  to  ten 


GR_CLVL  ( MAXLVL , CMIN,  CMAX , CINT,  DMIN,  DMAX,  NLVL , CLVL , IRET  ) 


Input  parameters: 
MAXLVL 
CMIN 
CMAX 
CINT 
DMIN 
DMAX 


INTEGER 

REAL 

REAL 

REAL 

REAL 

REAL 


Max  numb 
Mi  n imum 
Maximum 
Contour 
Mi  n imum 
Maximum 


er  of  con 
contour  v 
contour  v 
interval 
data  valu 
data  valu 


tour 
a lue 
a lue 

e 

e 


levels 


Output  parameters: 

NLVL  INTEGER 

CLVL  (NLVL)  REAL 

IRET  INTEGER 


N umb er  of  contour  levels 
Contour  levels 
Return  code 

0 - normal  return 
-8  - invalid  data  range 
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9.4  GR_CMPV  - COMPUTE  CONTOUR  LEVELS 


This  subroutine  defines  contour  levels,  given  the  data  range  and 
the  contour  interval. 

GR_CMPV  ( RMIN , RMAX , RINT,  MAXLVL , NLVL , CLVL,  IRET  ) 

Input  parameters: 


RMIN 

REAL 

Minimum  value 

RMAX 

REAL 

Maximum  value 

RINT 

REAL 

Contour  interval 

MAXLVL 

INTEGER 

Max  number  of  contour  levels 

; pu  t par  ame  t e r s : 

NLVL 

INTEGER 

Number  of  contour  levels 

CLVL  (NLVL) 

REAL 

Contour  levels 

IRET 

INTEGER 

Re  turn  code 

0 - normal  return 
-8  - invalid  range 
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9.5  GIU_CVAL  - SELECT  CONTOUR  INTERVAL 


This  subroutine  selects  a contour  interval,  given  minimum  and 
maximum  data  values.  The  selected  interval  will  generate 
five  to  ten  contour  levels. 

GRJCVAL  ( RMIN , RMAX , RINT,  IRET  ) 


Input  parameters: 
RMIN 
RMAX 

REAL 

REAL 

Minimum  data  value 
Maximum  data  value 

Output  parameters: 
RINT 
IRET 

REAL 

INTEGER 

Contour  interval 
Return  code 

0 = normal  return 
-8  = invalid  data  range 
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9.6  GR_FILE  - OPEN  GRID  FILE  FOR  GRAPHICS 


This  subroutine  opens  a grid  file.  The  input  file  name  is  first 
compared  to  the  name  of  the  current  open  grid  file.  If  it  is  a new 
file,  the  old  file  is  closed  and  the  n e w file  is  opened.  If  the  n e w 
open  is  successful,  GDCUR  is  updated.  This  subroutine  also  sets  the 
grid  navigation  in  GEMPLT  and  initializes  the  grid  diagnostics 
package  by  calling  DG_I NIT. 

Note  that  the  grid  diagnostics  subroutines  now  allow  more  than  one 
open  file.  In  order  to  use  this  feature,  DG  OF IL  should  be  used  to 
open  grid  files. 

GR^FILE  ( GDFILE , WRTFLG , GDCUR,  IGDFLN , LASTTM,  MAXGRD , I RET  ) 

Input  parameters: 

GDFILE  CHAR*  File  name  input  by  user 

WRTFLG  LOGICAL  Write  access  flag 

Input  and  output  parameters: 

GDCUR  CHAR*  Current  file  name 

IGDFLN  INTEGER  Grid  file  number 

Ou  t pu  t par  ame  t e r s : 

LASTTM  CHAR*  Last  time  in  file 

MAXGRD  INTEGER  Maximum  number  of  grids 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  - grid  file  not  opened 
-6  = grid  navigation  error 
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9.7  GR_FIXA  - FIX  AREA 


This  subroutine  takes  AREA  and  replaces  GRID  or  DSET  with  the  grid 
area,  EXTEND  with  the  extend  area,  and  DATA  wi th  the  data  area. 
GRID  or  DSET  is  obtained  from  the  navigation  block;  EXTEND  and 
DATA  are  obtained  from  the  analysis  block. 

GR_FIXA  C IGDFLN , AREA,  AREOUT , I RET  ) 


Input  parameters: 
IGDFLN 

INTEGER 

Grid  file  number 

AREA 

CHAR* 

Area 

Output  parameters: 
AREOUT 

CHAR* 

New  area 

I RET 

INTEGER 

Return  code 

0 = normal  return 
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9.8  GR^jGALM  - FIND  GRID  SUBSET  AREA 


This  subroutine  finds  the  boundaries  of  a subgrid  which  covers  the 
graphics  area. 

GR_GALM  ( KX,  KY,  IMIN,  JMIN,  IMAX , JMAX,  IRET  ) 

Input  parameters: 

KX  INTEGER  Number  of  grid  points  in  x dir 

KY  INTEGER  Number  of  grid  points  in  y dir 

Output  parameters: 

IMIN 
JMIN 
IMAX 
JMAX 
IRET 

0 - n o rma  1 return 
-9  - invalid  subgrid 


INTEGER 

Mi  n imum 

X 

value 

i n 

area 

INTEGER 

Mi  n imum 

y 

value 

i n 

area 

INTEGER 

Max  imum 

X 

value 

i n 

area 

INTEGER 

Max  imum 

y 

value 

i n 

area 

INTEGER 

Re  turn  c 

1 oc 

le 
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9.9  GR^GTIM  - PROCESS  INPUT  TIME 


This  subroutine  changes  the  user  input  for  grid  time  into  two 
GEMPAK  times.  These  two  times  are  separated  with  a colon  (:; 
and  indicate  the  two  times  used  to  compute  the  grid  function. 

GR_GTIM  ( GDATTM,  FIRSTM,  LASTTM,  GDTIM1  , GDTIM2  , I RET  ) 

Input  parameters  : 

GDATTM  CHAR*  Grid  time  input 

FIRSTM  CHAR*  First  time  in  grid  file 

LASTTM  CHAR*  Last  time  in  grid  file 

Output  parameters: 

GDTIM1  CHAR*  First  input  time 

GDTIM2  CHAR*  Second  input  time 

IRET  INTEGER  Return  code 

0 - normal  return 
-1  = invalid  input  time 
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9.10  GR_INTP  - INTERPOLATE  GRID  DATA 


This  subroutine  interpolates  data  fr om  a grid  to  a set  of  points 
defined  in  GX,  GY.  Bilinear  interpolation  is  the  only  interpolation 
type  implemented. 

GDP I NT  ( INTTYP , GX , GY,  NPTS , KX,  KY,  GRID,  SDINT,  I RET  ) 

Input  parameters: 


INTTYP 

INTEGER 

Interpolation  type 

GX  (NPTS) 

REAL 

Grid  x coordinates 

GY  (NPTS) 

REAL 

Grid  y coordinates 

NPTS 

INTEGER 

Number  of  coordinates 

KX 

INTEGER 

Number  of  x grid  points 

KY 

INTEGER 

Number  of  y grid  points 

GRID  (KX.KY) 

REAL 

Grid  data 

Output  parameters: 

SDINT  (npts) 

REAL 

Interpolated  data 

I RET 

INTEGER 

Return  code 

0 « normal  return 
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9.11  GIUJ.EVL  - PROCESS  INPUT  LEVEL 

This  subroutine  changes  the  user  input  for  grid  level  into  two 
integers  which  represent  the  layer  requested.  If  no  value  or 
invalid  values  are  entered,  the  output  level  is  set  to  -1. 

LIST  is  no  longer  an  option  in  this  subroutine. 

GRJLEVL  ( GLEVEL,  LEVEL 1 , LEVEL2 , I RET  ) 

Input  parameters: 

GLEVEL  CHAR*  Grid  level  input 

Output  parameters: 

LEVEL 1 INTEGER  First  level  of  layer 

LEVEL 2 INTEGER  Second  level  of  layer 

IRET  INTEGER  Return  code 

0 = normal  return 
-2  = invalid  input  level 
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9.12  GR^LI ST  - LIST  GRIDS  IN  FILE 


This  subroutine  lists  all  the  grids  in  a grid  file  and 
user  for  input.  The  input  will  be  returned  in  ANSWER, 
longer  possible  to  list  only  selected  grids.  The  list 
to  as  many  as  four  output  units. 


p r omp  t s the 
It  is  no 
may  be  sent 


GR_LIST  ( NLUN , LUNS , IGDFLN , ME  SAGE,  ANSWER,  I RET  ) 


Input  parameters: 
NLUN 
LUNS  (4) 

IGDFLN 

MESAGE 


INTEGER 

INTEGER 

INTEGER 

CHAR* 


Number  of  output  units 
Logical  output  unit  numbers 
Grid  file  number 
Me  s s ag e to  wr  i t e 


Output  parameters: 

ANSWER  CHAR* 

I RET  INTEGER 


User  input 
Re  turn  code 

3 - user  entered  EXIT 
0 - no rma  1 return 
-11  - less  than  1 output  LUN 
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9.13  GR_LTLN  - GET  LAT/LON  AT  GRID  POINTS 


This  subroutine  computes  the  latitude  and  longitude  at 
point.  The  grid  must  be  defined  in  GEMPLT  before  this 
is  called. 


each  grid 
subrout ine 


GR_LTLN  ( KX,  KY , 

RLAT,  RLON, 

I RET  ) 

Input  parameters: 

KX 

INTEGER 

Number  of 

points  in 

KY 

INTEGER 

Number  of 

points  in 

Output  par  ame  t e r s : 

RLAT  (KX.KY) 

REAL 

Latitudes 

in  degrees 

RLON  (KX.KY) 

REAL 

Long i t ud  e 

s in  degree 

I RET 

INTEGER 

Return  code 

0 = n o rma  1 return 
-6  = grid  projection 


d i r 
d i r 


error 
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9.14  GR_MBAN  - MAKE  BARNES  ANALYSIS  BLOCK 


This  subroutine  makes  a Barnes  analysis  block.  The  analysis  block 
generated  is  128  words  long.  All  the  bounds  must  be  entered  in 
the  order:  lower  left  latitude;  lower  left  longitude;  upper 

right  latitude;  upper  right  longitude. 

GRJtfBAN  ( DELTAN,  DELTAX,  DELTAY,  GBNDS , EBNDS , DBNDS , ANLBLK , 

I RET  ) 

Input  parameters: 


DELTAN 

REAL 

Station  spacing 

DELTAX 

REAL 

Grid  spacing  in  x 

dir 

DELTAY 

REAL 

Grid  spacing  in  y 

dir 

GBNDS  (4) 

REAL 

Grid  area  bound  s 

EBNDS  (4) 

REAL 

Extended  area  bounds 

DBNDS  (4) 

REAL 

Data  area  bounds 

Output  parameters: 

ANLBLK  (128) 

REAL 

An  alysis  block 

I RET 

INTEGER 

Re  turn  code 

0 » no rma  1 return 
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9.15  GRJVlNAV 

- MAKE  NAVIGATION 

BLOCK 

This  subroutine  makes  a navigation 

block  for  a grid  file. 

projection  may  be 

any  s imp  1 e , full 

or  graph  projection.  I 

ANGFLG  is  set,  the  projection  must 

be  a full  ma p projectio 

Otherwise,  a simple  map  projection 

will  be  defined. 

GR_MNAV  ( PRO J , 

KX,  KY,  RLAT1 , RLON1 , RLAT2 , RLON2 , ANGL1 

ANGL2 , 

ANGL3 , ANGFLG,  RNVBLK,  I RET  ) 

Input  parameters: 

PROJ 

CHAR* 

Projection  name 

KX 

INTEGER 

Number  of  x grid  points 

KY 

INTEGER 

Number  of  y grid  points 

RLAT1 

REAL 

L owe  r left  latitude/x 

RLON1 

REAL 

L owe  r left  longitude/y 

RLAT2 

REAL 

Upper  right  latitude/x 

RLON2 

REAL 

Upper  right  longitude/y 

ANGL1 

REAL 

Projection  ang 1 e 1 

ANGL2 

REAL 

Projection  angle  2 

ANGL3 

REAL 

Projection  angle  3 

ANGFLG 

LOGICAL 

Full  projection  flag 

Output  parameters 

; 

RNVBLK  (256) 

REAL 

Navi ga  t i on  block 

I RET 

INTEGER 

Re  turn  code 

0 = normal  return 
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9.16  GR_OPEN  - OPEN  GRID  FILE 

This  subroutine  opens  a grid  file.  The  input  file  name  is  first 
compared  to  the  name  of  the  current  open  grid  file.  If  it  is  a new 
file,  the  old  file  is  closed  and  the  new  file  is  opened.  If  the  new 
open  is  successful,  GDCUR  is  updated. 

Note  that  this  subroutine  does  not  set  the  navigation  information 
in  GEMPLT  or  initialize  the  DG  package. 

GIUOPEN  ( GDFILE,  WRTFLG,  GDCUR,  IGDFLN , LASTTM,  ANL , RNAV , 

NUMGRD,  MAXGRD , NEWFIL,  IRET  ) 


Input  parameters: 
GDFILE 

CHAR* 

Grid  file  name 

WRTFLG 

LOGICAL 

Wr ite  access  flag 

Input  and  output 
GDCUR 

par  ame  t e r s : 
CHAR* 

Current  file  name 

IGDFLN 

INTEGER 

Grid  file  number 

Output  parameters 
LASTTM 

CHAR* 

Last  t ime  in  file 

ANL  (*) 

REAL 

Ana  1 y s is  block 

RNAV  (*) 

REAL 

Navigation  block 

NUMGRD 

INTEGER 

Number  of  grids  in 

MAXGRD 

INTEGER 

Ma x imum  numb e r of 

NEWFIL 

LOGICAL 

N ew  file  flag 

IRET 

INTEGER 

Return  code 

0 - n o rma  1 return 
-4  - file  open  error 
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9.17  GR PACK  - DECODE  GRID  PACKING  INFO 


This  subroutine  decodes  the  user  input  for  grid  packing  into  the 
number  of  bits  / precision  and  packing  type.  The  valid  packing 
types  are  GRIB,  DEC  and  DIF.  If  the  packing  type  is  DEC,  NB ITS 
is  the  precision;  otherwise,  NBITS  is  the  number  of  bits. 

GR PACK  ( GPACK , IPKTYP,  NBITS,  I RET  ) 


Input  parameters: 

GPACK 

CHAR* 

Numb  e r 

of  bits 

/ packing 

Output  parameters: 

IPKTYP 

INTEGER 

GEMPAK 

packing 

type 

NBITS 

INTEGER 

Numb  e r 

of  bits 

I RET 

INTEGER 

Return 

code 

0 = ] 

n o rma 1 re 

turn 
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9.18  GR_PLIN  - GET  POINTS  FOR  CROSS  SECTION 


This  subroutine  translates  the  user  input  for  the  end  points  of  a 
cross-section  line  through  a grid  into  an  array  of  locations  along 
the  line  segment.  The  locations  in  the  output  array  are  evenly 
spaced,  with  the  spacing  being  approximately  the  grid  spacing. 

GR_PLIN  ( ENDPTS,  NPTS , RGX , RGY , RLAT , RLON , I RET  ) 


Input  parameters: 

ENDPTS  CHAR* 


User  input  for  end  points 


Output  pa  r ame  t e r s : 


NPTS 

REAL 

RGX 

(NPTS) 

REAL 

RGY 

(NPTS) 

REAL 

RLAT 

(NPTS) 

REAL 

RLON 

(NPTS) 

REAL 

IRET 

INTEGER 

Number  of  points  along  line 

X grid  point 

Y grid  point 

Latitude 

Long i t ud  e 

Return  code 


0 - normal  return 
-12  * invalid  grid  point 
-18  * endpoints  too  close 


9-22 


GRID  SUPPORT  (GR)  LIBRARY 


9.19  GR PLOC  - GET  INPUT  FOR  GRID  POINT 


This  subroutine  translates  the  user  input  for  a grid  point  into  an 
actual  grid  point,  x and  y coordinates,  and  latitude  and  longitude. 

GR PLOC  ( GPOINT , RGX , RGY , RLAT , RLON , I RET  ) 


Input  parameters: 

GPOINT  CHAR* 


User  input  for  grid  point 


Output  parameters: 

RGX 

REAL 

RGY 

REAL 

RLAT 

REAL 

RLON 

REAL 

IRET 

INTEGER 

X grid  point 
Y grid  point 
Latitude 
Long i tude 
Return  code 

0 - normal  return 
-12  = invalid  grid  point 
-13  = error  in  getting  KX , KY 
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9.20  GR_RBAN  - READ  BARNES  ANALYSIS  BLOCK 


This  subroutine  reads  a Barnes  analysis  block.  All  the  bounds 
are  returned  in  the  order:  lower  left  latitude;  lower  left 

longitude;  upper  right  latitude;  upper  right  longitude. 


GR_RBAN  ( ANLBLK,  DELTAN,  DELTAX,  DELTAY,  GBNDS , EBNDS , DBNDS , 
IEXTND,  I RET  ) 


Input  parameters: 


ANLBLK  (128) 

REAL 

Ou  t pu  t par  ame  t e r s : 

DELTAN 

REAL 

DELTAX 

REAL 

DELTAY 

REAL 

GBNDS  (4) 

REAL 

EBNDS  (4) 

REAL 

DBNDS  (4) 

REAL 

IEXTND  (4) 

INTEGER 

I RET 

INTEGER 

An  alysis  block 


Station  spacing 
Grid  spacing  in  x dir 
Grid  spacing  in  y dir 
Grid  area  bounds 
Extend  area  bounds 
Da  t a area  bound  s 
Extend  grid  points 
Return  code 

0 = normal  return 
-10  =■  invalid  analysis  block 
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9.21  GR__RNAV  - READ  NAVIGATION  BLOCK 


This  subroutine  gets  the  projection  and  grid  size  from  a grid 
navigation  block. 


GIC_RNAV  ( RNVBLK , 

PROJ,  KX,  KY, 

I RET  ) 

Input  parameters: 

RNVBLK  (256) 

REAL 

Navigation  block 

Ou  t pu  t par  ame  t e r s : 

PROJ 

CHAR* 

Projection  name 

KX 

INTEGER 

Number  of  points  in 

x dir 

KY 

INTEGER 

Number  of  points  in 

y d i r 

I RET 

INTEGER 

Re  turn  code 

0 = no  rma  1 return 
- 6 = i nva lid  na v i g 

a t i on 
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9.22  GK_JtiOBS  - READ  GRID  RELATIVE  WINDS 


This  subroutine  retrieves  grid  relative  observed  wind  components 
from  a grid  file.  The  grid  components  must  be  stored  as  UREL 
and  VREL . 

GR_ROBS  ( IFLNO,  GDTIME , LEVEL,  IVCORD,  GRID1 , GRID2 , IGX,  I GY , 
I RET  ) 

Input  parameters: 

IFLNO  INTEGER 

GDTIME  (2)  CHAR* 

LEVEL  (2)  INTEGER 

IVCORD  INTEGER 

Output  parameters: 

GRID1  (*)  REAL  U- component  grid 

GRID2  (*)  REAL  V- component  grid 

IGX  INTEGER  Number  of  points  in  x dir 

I GY  INTEGER  Number  of  points  in  y dir 

IRET  INTEGER  Return  code 

0 = no  rma  1 return 
-3  = wind  unavailable 


Grid  file  n umb  e r 
Grid  t ime 
Grid  level 

Grid  vertical  coordinate 
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9.23  GR_SCAL  - COMPUTE  GRID  SCALING 


This  subroutine  computes  the  scaling  term  to  be  used  for  scaling 
grid  data.  If  CSCALE  contains  a number,  it  will  be  used  as  a 
scaling  factor.  If  CSCALE  is  missing,  undefined  or  greater  than 
20  in  absolute  value,  an  appropriate  scaling  factor  will  be 
computed.  The  grid  data  are  multiplied  by  10  * * I SCALE.  If 
the  data  are  too  small  to  be  scaled  with  I SCALE  = 20,  I SCALE  is 
set  to  IMISSD  and  IRET  = -14. 


GRSCAL  ( 

CSCALE,  KX,  KY,  IMIN, 

JMIN,  IMAX, 

JMAX, 

GRID, 

I SCALE , 

RMIN,  RMAX,  IRET  ) 

Input  parameters: 

CSCALE 

CHAR* 

I npu  t sea 

le  factor 

KX 

INTEGER 

Number  of 

grid 

points 

i n x 

d i r 

KY 

INTEGER 

Number  of 

grid 

points 

in  y 

dir 

IMIN 

INTEGER 

Minimum  x 

grid 

point 

JMIN 

INTEGER 

Minimum  y 

grid 

point 

IMAX 

INTEGER 

Maximum  x 

grid 

point 

JMAX 

INTEGER 

Maximum  y 

grid 

point 

Input  and  output  parameters: 
GRID  ( KX , KY ) REAL 


Grid  of  data 


to  be 


scaled 


Output  parameters: 
I SCALE 
RMIN 
RMAX 
IRET 


INTEGER 

REAL 

REAL 

INTEGER 


Scale  factor 
Data  minimum 
Data  maximum 


Return 

code 

0 = 

n 

o rma 

1 

r e t u 

r 

n 

-8  = 

n 

o da 

t 

a 

i n 

r 

a 

ng 

e 

-9  = 

i 

nva  1 

i 

d 

sub 

s 

e 

t 

r 

ang  e 

-14  = 

s 

c a 1 i 

n 

g 

not 

P 

o s 

s 

i b 1 e 
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9.24  GR_SNAV  - SET  NAVIGATION  IN  GEMPLT 


This  subroutine  sets  up  a grid  coordinate  system  in  GEMPLT.  The 
navigation  block  should  be  sent  as  it  wa s received  fr om  the  grid 
file  open  subroutine.  Note  that  the  graphics  projection  and  mode 

must  be  defined  before  GR SNAV  is  called.  This  subroutine  will  fail 

if  the  grid  mode  is  not  the  same  as  the  current  GEMPLT  mode. 


GR_SNAV  ( NAVSZ  , RNVBLK , I RET 

Input  parameters: 

NAVSZ  INTEGER 

RNVBLK  (NAVSZ)  REAL 

Ou  t pu  t par  ame  t e r s : 

I RET  INTEGER 


Length  of  navigation  block 
Navigation  block 


Re  turn 
0 - 
-6  - 
-7  = 


code 

normal  return 

invalid  navigation  type 

GEMPLT  error 
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9.25  GR STAT  - COMPUTE  GRID  STATISTICS 


This  subroutine  computes  grid  statistics. 

GR STAT  ( Z,  KX,  KY,  IMIN,  JMIN,  IMAX,  JMAX , RMIN,  RMAX, 

RAVG , RDEV , I RET  ) 


Input  parameters: 

Z (KX.KY)  REAL 

KX  INTEGER 

KY  INTEGER 

imin  INTEGER 

JMIN  INTEGER 

IMAX  INTEGER 

JMAX  INTEGER 


Data  array 

N umb er  of  points  in  x dir 
Number  of  points  in  y dir 
Lower  left  corner  of  subgrid 
Lower  left  corner  of  subgrid 
Upper  right  corner  of  subgrid 
Upper  right  corner  of  subgrid 


Ou  t p u t par  ame  t e r s : 


RMIN 

REAL 

RMAX 

REAL 

RAVG 

REAL 

RDEV 

REAL 

IRET 

INTEGER 

Minimum  data  value 
Ma x i mum  data  value 
Av erage  data  value 
Standard  deviat ion 
Re  turn  code 

0 = normal  return 
-8  = no  data  in  range 
-9  = invalid  subset  area 
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9.26  GR_\MDBS  - GET  OBSERVED  WINDS 


This  subroutine  retrieves  the  observed  wind  components  from  a grid 
file.  The  grid  file  is  searched  for  the  following  parameter  names 

’ UWND  ’ and  ’VWND’ 

’UKNT ’ and  ’ VKNT ’ 

’ DRCT ’ and  ’SPED’ 

' DRCT ’ and  ’ SKNT ’ 

GIOWBS  ( IFLNO,  GDTIME,  LEVEL,  IVCORD,  GRID1  , GRID2  , WCMP 
WMKS,  WPARM,  IGX , I GY , IRET  ) 


Input  parameters: 


IFLNO 

GDTIME  (2) 
LEVEL  ( 2 ) 
IVCORD 

INTEGER 

CHAR* 

INTEGER 

INTEGER 

Grid  file  numbe  r 
Grid  t ime 
Grid  level 

Grid  vertical  coordinate 

Output  parameters: 
GRID1  (*) 

GRID2  (*) 

WMP 

REAL 

REAL 

LOGICAL 

First  grid 
Sec ond  grid 
Component  type 

true  - u , v 

WMKS 
WPARM 
IGX 
I GY 
IRET 

LOGICAL 

CHAR* 

INTEGER 

INTEGER 

INTEGER 

false  = speed ,di rect ion 
MKS  units  flag 

Wind  components  concatenated 
Number  of  points  in  x dir 
Number  of  points  in  y dir 
Re  turn  code 

0 = no rma  1 return 
-3  = wind  unavailable 
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9.27  GR_WTRM  - WRITE  GRID  IDENTIFIER  TO  TERMINAL 


This  subroutine  writes  a grid  identifier  to  the  specified 
unit  using  a standard  format.  TITLE  is  set  to  indicate  th 
title  line: 

NUM  TIME1  TIME2  LEVEL 1 LEVEL 2 VCORD 

is  to  be  written  first.  If  IGNUM  is  not  positive,  the  gri 
number  will  not  be  written  and  will  not  be  included  in  the 

GR_WTRM  ( LUN,  TITLE,  IGNUM,  GDATTM,  LEVEL,  I VCORD,  PARM, 


Input  parameters: 

Logical  unit  for  write 

LUN 

INTEGER 

TITLE 

LOGICAL 

Flag  to  wr  i t e title 

IGNUM 

INTEGER 

Grid  numbe  r 

GDATTM  (2) 

CHAR*  20 

GEMPAK  time 

LEVEL  ( 2 ) 

INTEGER 

Ve  r t i c a 1 1 eve  1 s 

I VCORD 

INTEGER 

Vertical  coordinate 

PARM 

CHAR* 1 2 

Parameter  name 

Ou  t pu  t par  ame  t e r s : 

IRET 

INTEGER 

Re  turn  code 

0 = normal  return 

0 g i c a 1 
t the 

PARM 

title. 

1 RET  ) 
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Input  Parameter  (IN)  Library  Summary 


The  input  parameter  library  is  used  to  decode  user  input  for 
standard  GEMPAK  variables. 


ERROR  MESSAGES: 


[IN  +2] 
[IN  +1  ] 
[IN  -1] 
[IN  -2] 
[IN  -3] 
[IN  -4] 
[IN  -5] 
[IN  -6  ] 
[IN  -7] 
[IN  -8] 


WARNING,  no  output  has  been  requested. 

START  or  STOP  not  specified  for  axis. 

Error  opening  OUTPUT  files. 

...  for  AXIS  is  insufficient  or  invalid. 

INPUT  is  invalid  for  CINT. 

Grid  data  for  contouring  is  all  missing  or  constant 
Mandatory  levels  requested,  but  coordinate  is  not  p 
Axis  limits  are  missing  or  indeterminant. 

Range  for  time  axis  is  zero. 

Time  axis  increment  results  in  too  many  blocks. 
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IN  Library  Calls 

IN.JVXIS 

( axis,  ivcrd,  skewt,  parm,  drain,  dmax,  ilfdef, 
itfdef,  / start,  stop,  values,  nval,  llbfrq,  1 

itmfrq,  iret  ) 

i g f d e f , 
gif  rq  , 

IN_3DTA 

( / iret  ) 

I N_C  I NT 

( cint,  grid,  npts,  / gmin,  gmax,  / oval,  nv , iret  ) 

I N_COLR 

( colors,  nexp,  / icolor,  iret  ) 

IN__LINE 

( line,  values,  nexp,  / icolor,  itype,  iwidth,  i 
iret  ) 

label  , 

IN__MARK 

(marker,  / mkcolr,  iret  ) 

in_mrgd 

( mrgdat,  / mrgflg,  ipttyp,  iret  ) 

I N_OUTT 

( output,  name,  / lun,  nlun,  devs , iret  ) 

IN_PARM 

( nexp,  parms,  / prmlst,  nparm,  iret  ) 

IN _J>RMC 

( nexp,  parms,  / prmlst,  prmcnd,  nparm,  iret  ) 

IN_PRMF 

( prmfil,  / nparm,  parms,  iscale,  iofset,  ibits 
iret  ) 

, pkflg, 

IN PTYP 

( ptype,  / iyaxis,  ratio,  rmargn,  iret  ) 

IN_SKYC 

( sky sym,  / iret  ) 

IN_TAXS 

( taxis,  maxlbl,  npts,  timfnd,  / x,  xstrt,  xstop,  xtlbl 
ctlbl,  nxlbl,  xmndst,  ilbfrq,  iglfrq,  itmfrq,  iret  ) 

I N_TEXT 

( text,  / iret  ) 

I N_T  I TL 

( title,  idlin,  / icttl,  linttl,  ttlstr,  iret  ) 

I N_WI  ND 

( wind,  / wintyp,  winuni,  iwnclr,  iret  ) 

INJWSYM 

( wsym,  / iret  ) 
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10.1  I N_AX I S - PROCESS  AXIS 


This  subroutine  processes  an  axis  variable.  The  start  and  stop 
values  along  with  an  array  of  values  are  returned.  The  frequencies 
with  respect  to  the  elements  in  the  array  of  values  for  the 
plotting  of  labels,  grid  lines  and  tick  marks  are  also  returned. 

If  any  of  these  frequency  values  is  missing,  the  corresponding 
output  value  is  set  to  the  input  defaults.  Plotting  begins  with 
the  first  element. 


AXIS  is  expected  to  be  of  the  form: 

start/ stop/incr emen  t /labfrq;glnfrq;ticfrq 
or 

start/stop/valuel ;value2; . . . ;valueN/labfrq;glnfrq;ticfrq 

In  the  latter  case,  the  increment  specification  has  been  replaced 
with  a list  of  values.  Failure  to  specify  START  and  STOP  will 
result  in  default  values  determined  on  the  basis  of  EMIN  and  DMAX , 
the  vertical  coordinate  or  the  parameter.  If  increment  = MAN, 
then  the  mandatory  levels  between  START  and  STOP  are  returned! 

A positive  increment  will  generate  values  divisible  by  the 
increment.  A negative  increment  will  generate  values  incremented 
irom  SI ART  using  the  absolute  value  of  the  increment.  If  the 

SKEWT  flag  is  set,  extra  lines  will  be  added  on  the  lower  end 
of  the  scale. 


NOTE:  Dimension  VALUES  to  LLAXIS  in  the  calling  program. 

IN_AXIS  ( AXIS,  IVCRD,  SKEWT,  PARM,  DMIN,  DMAX,  ILFDEF,  IGFDEF 
ITFDEF,  START,  STOP,  VALUES,  NVAL , ILBFRQ,  IGLFRQ 
ITMFRQ , IRET  ) V’ 


Input  parameters: 

AXIS  CHAR* 

IVCRD  INTEGER 


SKEWT 

PARM 

EMIN 

DMAX 

ILFDEF 

IGFDEF 

ITFDEF 


LOGICAL 

CHAR* 

REAL 

REAL 

INTEGER 

INTEGER 

INTEGER 


Output  parame  t e r s : 

START  REAL 
STOP  REAL 
VALUES  (NVAL)  REAL 


I npu  t for  axis 
Vertical  coordinate 

0 = NONE  2 = THTA 

1 = PRES  3 = HGHT 
Flag  s k ewT  plot  T axis 
Parameter  name  (optional) 
Data  minimum 

Data  maximum 
Default  label  frequency 
Default  grid  line  frequency 
Default  tick  mark  frequency 


Starting  value  for  axis 
Stopping  value  for  axis 
Array  of  values 
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NVAL 
ILBFRQ 
IGLFRQ 
ITMFRQ 
I RET 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 


Number  of  values 
Label  frequency 
Grid  line  frequency 
Tick  mark  frequency 
Return  code 

0 = normal  return 
-2  = incorrect  specification 
-5  = MAN  lvls  not  appropriate 
-6  = axis  bounds  are  missing 
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10.2  IN_£DTA  - GEMPAK  BLOCKDATA 


This  subroutine  serves  as  a BLOCKDATA  statement,  initiali 
variables  in  GEMPAK  common  blocks.  This  subroutine  is  ca 
by  IP—INIT.  If  a GEMPAK  program  does  not  call  IP_INIT,  i 
call  I N_JJDTA  di  rectly. 

I N_3DTA  ( I RET  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 


zing 
lied 
t mu  s t 
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10.3  I N_C I NT  - PROCESS  CINT 


This  subroutine  processes  the  user 
GMIN  or  GMAX  is  set  to  the  missing 
are  used  to  compute  GMIN  and  GMAX. 
GMAX  are  not  missing.  An  array  of 


contour  specification.  If 
value,  the  values  in  the  grid 
GRID  is  not  used  if  GMIN  and 
values  is  returned. 


CINT  is  expected  to  be  of  the  form: 


o r 


i n c r eme  n t /mi  n imum/ ma x imum 


va 1 u e 1 ; va 1 u e 2 ; . . . ;valueN 


where  the  minimum  and  maximum  give  the  range  for  the  contours.  If 
the  minimum  equals  the  maximum,  a single  contour  with  that  value 
is  assumed.  In  the  latter  specification,  the  specified  contour 
levels  are  used,  and  the  minimum  and  maximum  are  ignored. 

I N_C I NT  ( CINT,  GRID,  NPTS , GMIN,  GMAX,  CVAL,  NV , IRET  ) 

Input  parameters: 

CiNT  CHAR*  Input  for  contours 

GRID  (NPTS)  REAL  Array  of  data 

NPTS  INTEGER  Number  of  grid  values 


Input  and  output  paramters: 

GMIN  REAL  Minimum  grid  value 

GMAX  REAL  Maximum  grid  value 


Ou  t pu  t par  ame  t e r s : 

CVAL  REAL  List  of  contour  levels 

NV  INTEGER  Number  of  contour  levels 

IRET  INTEGER  Return  code 

0 = normal  return 
-3  = invalid  input 
-4  = constant  grid 
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10.4  I N_COLR  - PROCESS  COLOR 


This  subroutine  converts  the  input  for  the  COLORS  variable  into  a 
list  of  colors.  If  the  number  of  colors  is  less  than  the  number 
expected,  the  input  colors  will  be  repeated  to  fill  the  buffer. 

If  COLORS  is  blank,  the  default  is  color  1. 

The  colors  can  now  be  queried  or  set  by  name.  The  color  names 
corresponding  to  the  color  numbers  can  be  listed  by  ending  the 
color  list  with  a ?.  Color  numbers  can  be  set  to  specific  colors 
by  using  the  =.  For  example,  l=r ed ; 2=o range ; 3-blue ; 4 ; 5?  will 
set  color  number  1 to  red,  2 to  orange,  3 to  blue  and  it  will  list 
the  current  color  names  for  all  color  numbers. 


IN_COLR  ( COLORS,  NEXP , ICOLOR,  IRET  ) 


Input  parameters: 

COLORS  CHAR* 

NEXP  INTEGER 

Output  parameters: 

ICOLOR  (NEXP)  INTEGER 
I RET  INTEGER 


COLOR  S input 
N umb er  of  colors 


Color  number  array 
Re  turn  code 

0 — n o rma  1 return 
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10.5  IN_L INE  - PROCESS  LINE 


This  subroutine  converts  the  input  for  the  LINE  variable  into  a 
list  of  colors,  line  types,  line  widths  and  line  label  flags. 

If  the  number  of  specifications  is  less  than  the  number  expected, 
the  input  sequence  will  be  repeated  to  fill  the  buffer. 

The  LINE  input  must  be  of  the  form: 

col  1 ; col2 ; . . . / typl ; typ2 . . . /widl  ;wid2 ,../labl;lab2... 

In  general,  lines  are  turned  off  by  specifying  color  - 0. 

0 for  line  type  or  width  will  use  a default  value  of  1.  0 for 

line  label  will  suppress  labelling. 

Note  that  the  colors  can  now  be  set  or  queried  by  name.  See  IN__COLR 
for  details. 

If  the  line  type  is  set  to  a single  negative  number,  negative 
values  will  have  the  line  type  specified  and  positive  values 
will  be  solid  (line  type  - l).  If  the  label  is  set  to  a single 
number,  say  n,  then  every  nth  value  will  be  labelled. 

IN_LINE  ( LINE,  VALUES,  NEXP , ICOLOR,  I TYPE , IWIDTH,  I LABEL , 

I RET  ) 


Input  parameters: 

LINE  CHAR* 

VALUES  (NEXP)  REAL 

NEXP  INTEGER 

Output  parameters: 

ICOLOR  (NEXP)  INTEGER 

I TYPE  (NEXP)  INTEGER 

IWIDTH  (NEXP)  INTEGER 

I LABEL  (NEXP)  INTEGER 

I RET  INTEGER 


LINE  input 

Data  values  to  draw  and  label 
Number  expected 


Color  number  array 
Line  type  number  array 
Line  width  number  array 
Line  label  number  array 
Return  code 

0 = n o rma  1 return 
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10.6  IN__MARK  - PROCESS  MARKER 


This  subroutine  decodes  the  marker  string  which  is  in  the  form: 


color  # / marker  # / size  / width  / hw,  sw  flag 

Note  that  the  hw,  sw  flag  can  appear  anywhere  in  the  string. 

The  marker  size  is  a real  number  which  is  a multiplier  for  the 
base  ma  rker  size.  If  the  size  is  0.0,  the  current  size  will  be 
used.  If  the  marker  color  is  0,  no  marker  will  be  drawn.  If 
the  marker  color  is  blank,  color  number  1 will  be  used.  If 
the  marker  number  is  missing  or  0,  the  current  marker  number 
will  be  used.  The  marker  type,  size  and  width  are  set  in  this 
subrout ine , wh  ile  the  color  is  returned  so  that  the  program  ma  y 
set  it  when  actually  plotting  markers.  The  GEMPLT  package  must 
be  initialized  before  this  subroutine  is  called. 


IN_MARK  ( MARKER,  MKCOLR , I RET 

Input  parameters: 

MARKER  CHAR* 

Output  parameters: 

MKCOLR  I NTEGER 

I RET  INTEGER 


Marker  input 


Ma  rker  color 
Return  code 

0 = normal  return 


10-10 


INPUT  (IN)  LIBRARY 


10.7  IN_MRGD  - PROCESS  MRGDAT 


This  subroutine  breaks  the  user  input  for  MRGDAT  into  a flag 
indicating  whether  merged  data  are  to  be  used  and  a type  for 
unmerged  data.  The  default  for  MRGFLG  is  true  and  for  I PTTYP 
is  3. 

IN_MRGD  ( MRGDAT,  MRGFLG,  I PTTYP,  I RET  ) 


Input  parameters: 

MRGDAT 

CHAR* 

User  input  for  MKUUAI 

Ou  t pu  t par  ame  t e r s : 

MRGFLG 

LOGICAL 

Merged  file  type 

I PTTYP 

INTEGER 

Unmerged  type 

1 = ma  n b e 1 ow  100  mb 

2 = man  & sig  below  100  mb 

3 * ma  n & sig  bel  ow  & above 

I RET 

INTEGER 

Return  code 

0 = normal  return 
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10.8  I N_OUTT  - PROCESS  OUTPUT 


This  subroutine  processes  the  OUTPUT  variable.  The  requested 
output  types  are  determined  and  corresponding  logical  unit  numbers 
are  returned.  Output  may  be  directed  to  the  terminal,  a file, 
or  a printer.  OUTPUT  will  be  searched  for  ’T’,  *P*,  and  *F*  to 

determine  which  output  devices  are  requested.  If  the  output 
devices  are  followed  by  a slash  and  a string,  the  string  will  be 
used  as  the  name  of  the  output  file.  If  file  output  is  requested 
and  no  file  name  is  specified,  the  file  will  be  called  NAME.FIL, 
where  name  is  an  input  variable  to  this  subroutine  and  should 
be  the  name  of  the  executing  program.  If  no  valid  devices  are 
specified,  output  will  be  sent  to  the  terminal.  If  the  output 
request  contains  an  ’ N ’ before  the  slash,  no  output  will  be 
wr  i 1 1 en . 

I N__OUTT  ( OUTPUT,  NAME,  LUN , NLUN , DEVS,  I RET  ) 

Input  parameters: 

OUTPUT  CHAR* 

NAME  CHAR* 

Output  parameters: 

LUN  ( NLUN ) I NTEGER 

NLUN  INTEGER 

DEVS  (NLUN)  CHAR* 1 

I RET  INTEGER 


Output  variable 
Program  name 

Logical  unit  numbers 
Number  of  output  devices 
Device  name  (T,P,F) 
Return  code 

0 = n o rma  1 return 
-1  = error  opening  files 
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10.9  I N„P  ARM  - PROCESS  PARMS 


This  subroutine  processes  the  input  variable  PARMS  where  the 
input  string  contains  a list  of  parameter  names  separated  by 
semicolons.  All  spaces  are  eliminated  from  the  input  string. 

If  two  consecutive  semicolons  are  found,  the  parameter  BLNK  will 
be  inserted. 

IN _J?ARM  ( NEXP,  PARMS,  PRMLST , NPARM,  IRET  ) 


Input  parameters: 

NEXP  INTEGER 

PARMS  CHAR* 


Maximum  number  of  parameters 
Par  ame  ter  string 


Ou  t pu  t par  ame  t e r s : 

PRMLST  (NPARM)  CHAR* 
NPARM  INTEGER 

IRET  INTEGER 


Par  ame  ter  array 
Number  of  parameters 
Re  turn  code 

0 = no  rma  1 return 
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10.10  I N_PRMC  - PROCESS  PARMS  AND  CONDITIONS 


This  subroutine  processes  the  input  variable  PARMS  where  the 
input  string  contains  a list  of  parameter  names  separated  with 
semicolons.  All  spaces  are  eliminated  from  the  input  string. 

If  two  consecutive  semicolons  are  found,  the  parameter  BLNK  will 
be  inserted.  Any  characters  after  the  fourth  character  in  the 
parameter  name  are  returned  as  conditions.  This  subroutine  is  the 
same  as  IN — FARM  except  that  the  condition  array  is  returned  here. 

IN_J>RMC  ( NEXP,  PARMS,  PRMLST , PRMCND , NPARM,  I RET  ) 

Input  parameters: 

NEXP  INTEGER  Maximum  number  of  parameters 

PARMS  CHAR*  Parameter  string 

Ou  t pu  t par  ame  t e r s : 

PRMLST  (NPARM)  CHAR*4  Parameter  array 

PRMCND  (NPARM)  CHAR*  Parameter  condition  array 

NPARM  INTEGER  Number  of  parameters 

IRET  INTEGER  Return  code 

0 * normal  return 
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10.11  IN PRMF  - PROCESS  PACKING  INFO 


This  subroutine  receives  the  user  input  for  parameter  packing 
and  returns  the  packing  information.  The  input  is  either  the 
name  of  a file  containing  the  information  or  the  information 
itself  entered  as  follows: 

PRM1 /MINI -MAXI- RES  1 ; PRM2/MIN2-MAX2  - RES  2 ; . . . 

where  PRMn  is  the  parameter  name,  MINn  is  the  minimum  for  PRMn , 
MAXn  is  the  maximum  for  PRMn,  and  RESn  is  the  resolution. 

IN_J>RMF  ( PRMF  I L , NPARM,  PARMS  , I SCALE  , IOFSET,  I BITS,  PKFLG 
I RET  ) 


Input  parameters: 


PRMF  I L 

CHAR* 

Input  packing  information 

Output  parameters: 
NPARM 

INTEGER 

Number  of  parameters 

PARMS 

(NPARM) 

CHAR* 

Parameter  names 

I SCALE 

(NPARM) 

INTEGER 

Scaling  for  packing 

IOFSET 

(NPARM) 

INTEGER 

Offset  for  packing 

IBITS 

(NPARM) 

INTEGER 

N umb er  of  packing  bits 

PKFLG 

LOGICAL 

Packing  flag 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-9  = invalid  packing  info 
-10  = all  parms  must  be  packed 
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10.12  IN PTYP  - PROCESS  PTYPE 


This  subroutine  translates  the  variable  PTYPE  and  returns  values 
for  the  axis  type,  he i gh t - t o -wi  d th  ratio,  and  the  margins.  If 
the  margins  are  not  specified,  -1.  is  returned. 

IN — PTYP  ( PTYPE,  IYAXIS,  RATIO,  RMARGN , IRET  ) 


Input  parameters: 

PTYPE  CHAR* 


Output  parameters: 
IYAXIS 
RATIO 
RMARGN  (4) 

IRET 


INTEGER 

REAL 

REAL 

INTEGER 


Y axis  input 

Y axis  integer  type 
He i gh t - t o -wi  d t h ratio 
Margins 

Return  code 

0 - n o rma  1 return 
-7  = invalid  axis  type 
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10.13  IN SKYC  - DECODE  SKY  COVERAGE  SYMBOL 

This  subroutine  decodes  the  input  for  the  sky  coverage  symbol. 
The  variable  has  three  parts  separated  by  slashes.  The  first 
contains  the  symbol  size.  The  second  part  contains  the  symbol 
width.  The  third  part  contains  the  sky  coverage  symbol  type. 


The  decoded  values 
GEMPLT . 

are  used 

to  set  the 

sky  symbol  defaults  in 

IN SKYC  ( SKYSYM, 

I RET  ) 

Input  parameters: 
SKYSYM 

CHAR* 

Sky 

coverage  symbol  input 

Ou  t p u t par  ame  t e r s : 
I RET 

INTEGER 

Return  code 

0 = no  rma 1 return 


part 
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10.14  IN_TAXS  - PROCESS  TAXIS 


This  subroutine  determines  the  values  to  use  for  the  time  axis  in 
a time  series  program.  TAXIS  must  be  in  the  form: 

tstart-tstop-tinc; lblfrq;glnfrq; ticfrq 

wh  ere  the  last  three  are  the  frequencies  for  labels,  grid  lines 
and  tick  ma  rks . 


Defaults  will  be  set  for  all  values  not  supplied  explicitly. 


IN_TAXS  ( TAXIS, 

MAXLBL,  NPTS, 

TIMFND,  X,  XSTRT,  XSTOP,  XTLBL, 

CTLBL , 

NXLBL,  XMNDST, 

ILBFRQ,  IGLFRQ,  ITMFRQ,  I RET  ) 

Input  parameters: 

TAXIS 

CHAR* 

User  input  for  T axis 

MAXLBL 

I NTEGER 

Maximum  number  of  labels 

NPTS 

INTEGER 

Numb e r of  t ime  s 

TIMFND  (NPTS) 

CHAR* 

GEMPAK  t ime  s 

Output  parameters 
X (NPTS) 

REAL 

X positions  of  times  in  days 

XSTRT 

REAL 

Left  value  of  x 

XSTOP 

REAL 

Right  value  of  x 

XTLBL  (NXLBL) 

REAL 

X axis  label  positions 

CTLBL  (NXLBL) 

CHAR* 

X axis  labels 

NXLBL 

INTEGER 

Number  of  x axis  labels 

XMNDST 

REAL 

Min  time  separation  in  days 

ILBFRQ 

INTEGER 

Labe  1 f r equency 

IGLFRQ 

INTEGER 

Grid  line  frequency 

ITMFRQ 

INTEGER 

Tick  mark  frequency 

I RET 

INTEGER 

Re  turn  code 

0 = no  rma  1 return 
-7  = time  range  is  size  zero 
-8  = too  many  labels 
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10.15  I N_TEXT  - PROCESS  TEXT 

This  subroutine  decodes  the  text  string  which  is  in  the  form: 

text  size  / text  font  / text  width  / hw,  sw  flag 

Note  that  the  hw,  sw  flag  can  appear  anywhere  in  the  string.  The 
specified  characteristics  are  set  in  GEMPLT . 

If  any  parameter  is  not  input,  the  current  default  will  be  used. 
The  GEMPLT  graphics  package  must  be  initialized  before  this 
subroutine  is  called. 

IN_TEXT  ( TEXT,  I RET  ) 


Input  parameters: 
TEXT 

CHAR* 

Text  input 

Ou  t p u t par  ame  t e r s : 
I RET 

INTEGER 

Return  code 

0 = normal  return 

10-19 


INPUT  (IN)  LIBRARY 


10.16  I N_T I TL  - PROCESS  TITLE 

This  subroutine  converts  the  input  for  the  TITLE  variable  into  a 
title  color,  title  line  and  title  string.  The  inputs  for  TITLE  are 
separated  by  slashes. 

I N_T I TL  ( TITLE,  IDLIN,  ICTTL,  LINTTL,  TTLSTR , IRET  ) 

Input  parameters: 

TITLE  CHAR*  TITLE  input 

IDLIN  INTEGER  Default  line 

Output  parameters: 

ICTTL  INTEGER  Title  color 

LINTTL  INTEGER  Title  line 

TTLSTR  CHAR*  Title  string 

IRET  INTEGER  Return  code 

0 = normal  return 
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10.17  INJVIND  - PROCESS  WIND 


This  subroutine  decodes  the  input  for  WIND.  The  variable  has 
two  parts  separated  by  a slash.  The  first  part  contains  the 
wind  type  (B  for  barb,  A for  arrow),  the  wind  units  (M  for 
meters/sec,  K for  knots)  and  the  color  number.  There  should 
be  no  slashes  in  this  part.  The  second  part  contains  the  size, 
width,  type  of  the  arrow  or  barb,  and  the  arrowhead  size  separated 
by  slashes.  The  arrow/ barb  size  is  a multiple  of  the  base  size. 
Type  1 plots  a circle  or  an  arrowhead  for  calmwinds.  Type  2 does 
not  plot  anything  for  calmwinds.  The  arrowhead  size  is  a multiple 
of  the  base  arr  owh  e a d size. 


An  example  of  the  wind  string  is:  BM/1.0/5/2 
IN_WIND  ( WIND,  WINTYP , WINTJNI  , IWNCLR , I RET  ) 


Input  parameters: 

WIND 

CHAR* 1 

Wind  input 

Ou  t pu  t par  ame  t e r s : 

WINTYP 

CHAR* 1 

Wind  type 

B = wi  nd  barb 
A = wi nd  arr  ow 

WINUNI 

CHAR* 

Wi  nd  un its 
K = knots 
M = me  t e r s / s e c ond 

IWNCLR 

INTEGER 

Wi  nd  color 

I RET 

INTEGER 

Return  code 

0 = no rma  1 return 
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10.18  IN_WSYM  - DECODE  WEATHER  SYMBOL 


This  subroutine  decodes  the  input  for  the  weather  symbol.  The 
variable  has  two  parts  each  preceded  by  a *.  The  first  part 
contains  the  weather  symbol  size  and  the  second  part  contains  the 
weather  symbol  width. 

IN_WSYM  ( WSYM,  I RET  ) 

Input  parameters: 

WSYM  CHAR*  Weather  symbol  input 

Output  parameters: 

I RET  INTEGER  Return  code 

0 = n o rma  1 return 
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IP _DYNM 
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I P_ULOG 
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Receive  logical  variable 

Ge  t map  file  name 

Receive  string  variable 

Update  local  TAE  variable 

Update  global  logical  variable 

Update  global  string  variable 
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TAE  Input  Parameter  (IP)  Library  Summary 


The  TAE  input  parameter  library  provides  an  easy  interface  to  the 
TAE  subroutines.  It  makes  the  calls  to  the  TAE  required  by  standard 
GEMPAK  programs. 

If  a program  is  to  obtain  any  variables  from  the  TAE,  the  subroutine 
IP__INIT  must  be  called  first.  This  subroutine  initializes  the  TAE 
variable  block.  The  program  can  then  obtain  input  parameter  values 

using  the  subroutines  IP STR  or  IP_XOG.  GEMPAK  no  longer  supports 

the  return  of  integer  or  real  parameters  directly  from  the  TAE. 

Also,  arrays  can  no  longer  be  received  from  the  TAE. 

After  all  parameters  are  checked  for  validity,  the  subroutine 
IP__USTR  should  be  called  for  each  parameter  to  update  the  global 
parame  ter  value. 

IP— DYNM  is  called  by  most  GEMPAK  programs  to  allow  new  parameters 
to  be  entered  and  the  program  to  be  executed  again  in  a dynamic 
tutor . 

I P EX I T mu st  be  the  last  IP  subroutine  called  before  ending  the 

program.  It  is  used  to  update  the  global  values. 

Note  that  any  program  calling  IP_INIT  must  include  the  global 
parameter  ^RESPOND  on  the  REFGBL  line  of  its  PDF. 

All  errors  fr om  the  TAE  are  printed  wh en  they  are  encountered  by  an 
IPsubroutine. 

If  the  user  is  not  in  the  TAE  or  if  there  is  an  error  initializing 
the  TAE,  non -TAE  (NT)  subroutines  will  be  called.  No  changes  need 
to  be  ma  de  in  any  applications  progr  am  to  use  the  non- TAE  interface, 
provided  that  ALL  TAE  calls  are  made  using  the  IP  library 
subroutines . 


ERROR  MESSAGES  FROM  THE  TAE: 


[TAE  1800] 
[TAE  1801] 
[TAE  1805] 
[TAE  1810] 
[TAE  1811] 
[TAE  2102] 


Invalid  parameter  name  for  parameter  ... 

Invalid  parameter  type  for  parameter  ... 

Dup licate  par  ame  ter  n ame  for  par  ame  ter  ... 
Length  of  string  insufficient  for  parameter  ... 
TAE  error. 

No  parameter  returned  for  parameter  ... 


ERROR  MESSAGES  FROM  THE  IP  LIBRARY: 
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[IP  -2]  Error  receiving  parameter  .... 
[IP  -3]  Globals  not  updated. 
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IP _JDYNM 

I P EX  I T 

I P I DNT 

I P IN  IT 

I P_LOG 
I P_MFIL 

I P STR 

I P__ULOC 
I P_ULOG 
I P_USTR 


TAE  INPUT  PARAMETER  (IP)  LIBRARY 

IP  Library  Calls 
( / done,  iret  ) 

( / iret  ) 

( / progrm,  iret  ) 

( / res  pnd , iret  ) 

( pname  , / logprm,  iret  ) 

( / map f i 1 , iret  ) 

( pname,  / parm,  iret  ) 

( pname,  parm,  / iret  ) 

( pname,  logvar,  / iret  ) 

( pname,  parm,  / iret  ) 


11-4 


TAE  INPUT  PARAMETER  (IP)  LIBRARY 


11.1  I P_JDYNM  - ENTER  DYNAMIC  TUTOR 


This  subroutine  takes  the  user  into  a dynamic  tutor,  allowing  new 
values  to  be  entered  for  the  current  program.  If  the  global 
variable  SRESPOND  is  set  to  NO  or  if  the  user  enters  EXIT, 

DONE  wi 11  be  set. 

I P__PYNM  ( DONE,  I RET  ) 

Ou  t pu  t par  ame  t e r s : 

DONE  LOG I CAL  Program  exit  flag 

IRET  INTEGER  Return  code 

0 = normal  return 
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11.2  I P EXIT  - EXIT  FROM  TAE 


This  subroutine  performs  the  functions  needed  to  exit  from  the 
TAE.  Global  variables  which  have  been  changed  in  the  program 
are  actually  updated  at  this  time.  This  subroutine  must  be 
called  at  the  end  of  every  program. 

I P_J2X I T ( IRET  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
-3  = globals  not  updated 
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11.3  ip IDNT  - PROGRAM  IDENTIFICATION 


This  subroutine  saves  the  name  of  the  current  program  for  the 
non- TAE  d y n am  i c tutor. 

I P I DNT  ( PROGRM,  I RET  ) 

Output  par  ame  t e r s : 

PROGRM  CHAR*  Program  name 

I RET  INTEGER  Return  code 

0 = n o rma  1 return 
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11.4  I P INI T - INITIALIZE  TAE 


This  subroutine  initializes  the  TAE.  It  reads  the  TAE  block 
wh ich  contains  both  local  and  global  variables  and  initializes 
a second  variable  block  to  be  used  for  a dynamic  tutor. 

The  variable  RESPND  returns  the  logical  value  of  the  global 
variable  SRESPOND.  Whenever  the  value  of  RESPND  is  FALSE,  the 
program  should  not  expect  input  from  the  user.  If  the  user  is 
executing  the  program  in  batch  mode,  the  respond  flag  will  also 
be  set  to  false.  GEMPAK  programs  currently  do  not  use  the  value 
of  RESPND.  Instead,  it  is  obtained  each  time  it  is  required. 

The  value  is  returned  here  to  maintain  c ompa t i b i 1 i t y wi  t h earlier 
versions. 

If  an  error  is  encountered  in  initializing  the  TAE  block,  non-TAE 
(NT)  code  will  be  used. 

I P — IN IT  ( RESPND,  IRET  ) 

Output  parameters: 

RESPND  LOGICAL 

I RET  INTEGER 


Re  spond  flag 
Return  code 

0 “ no rma  1 return 
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11.5  IP_XOG  - RECEIVE  LOGICAL  VARIABLE 


This  subroutine  receives  the  value  of  a logical  variable.  A 
YES  or  NO  entered  in  the  TAE  is  converted  to  TRUE  or  FALSE. 
If  the  first  letter  of  the  input  is  not  Y,  the  value  is  set 
to  FALSE. 

IP__LOG  ( PNAME , LOGPRM,  I RET  ) 


Input  parameters: 

PNAME  CHAR* 


Name  of  variable 


Ou  t pu  t par  ame  t e r s : 

LOGPRM  CNPARM)  LOGICAL 
I RET  INTEGER 


Parameter  values 
Re  turn  code 

0 = normal  return 
-2  = parameter  not  received 
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11.6  I P_MF I L - GET  MAP  FILE  NAME 


This  subroutine  extracts  the  current  map  file  name  from  $MAPFIL. 
I P_MF IL  ( MAPFIL,  IRET  ) 


Output  parameters: 

MAPFIL  CHAR*  Map  file  name 

IRET  INTEGER  Return  code 

0 = normal  return 
-2  = parameter  not  received 
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11.7  I p STR  - RECEIVE  STRING  VARIABLE 


This  subroutine  receives  a string  variable  from  the 
I p STR  ( PNAME,  PARM,  I RET  ) 


Input  parameters: 

PNAME  CHAR* 


Name  of  variable 


Ou  t pu  t par  ame  t e r s : 

PARM  CHAR*  String 

I RET  INTEGER  Return  code 

0 = n o rma  1 re 

- 2 = par  ame  ter 


TAE  . 


turn 

not  received 
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11.8  IP_ULOC  - UPDATE  LOCAL  TAE  VARIABLE 


Th.  is  subroutine  saves  a string  variable  in  the  local  variabl 
used  for  dyn am ic  tutors.  It  can  be  used  to  update  variables 
a program. 


I P__ULOC  ( PNAME  , 

PARM,  IRET  ) 

Input  parameters: 

PNAME 

CHAR* 

Variable  n ame 

PA_RM 

CHAR* 

Variable  value 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 = normal  return 

e block 
wi  thin 
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11.9  I P_ULOG 


This  subroutine 

I P_ULOG  ( PNAME 

Input  parameters 
PNAME 
LOGVAR 

Output  parameter 
I RET 


TAE  INPUT  PARAMETER  (IP)  LIBRARY 

- UPDATE  GLOBAL  LOGICAL  VARIABLE 

updates  a TAE  global  logical  varia 
, LOGVAR,  I RET  ) 

CHAR*  Parameter  name 

LOGICAL  Parameter  value 

s : 

INTEGER  Return  code 

0 = no rma  1 r 


1 e . 


turn 
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11.10  I P—USTR  - UPDATE  GLOBAL  STRING  VARIABLE 


This  subroutine  updates  a TAE  global  string  variable.  The 
subroutine  attempts  to  update  a corresponding  global  variable. 

No  error  will  be  returned  if  there  is  no  such  global.  Since  all 
GEMPAK  parameters  now  have  a corresponding  global  value,  each 
p r o g r am  should  update  all  its  variables. 


I P_USTR  ( PNAME  , 

PARM,  IRET  ) 

Input  parameters: 

PNAME 

CHAR* 

Parameter  name 

PARM 

CHAR* 

Par  ame  ter  value 

Ou  t pu  t par  ame  t e r s : 

I RET 

INTEGER 

Return  code 

0 = normal  return 
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Location  (LC)  Library  Summary 


The  GEMPAK  location  library  provides  subroutines  for  defining  data 
subset  and  graphics  areas  in  GEMPAK. 

Areas  containing  subareas  may  now  be  defined  using  the  subroutines 
— SARE  and  LC_UARE . Subareas  must  be  separated  by  slashes  (/). 

Each  subarea  is  additive  (+)  or  subtractive  (-),  depending  on  the 
first  character  following  the  slash,  with  + being  the  default. 

Ad ditive  subareas  add  stations  to  the  list  of  valid  stations; 
subtractive  subareas  eliminate  stations  which  were  previously  valid. 

Subareas  may  be  specified  in  the  following  ways: 


1.  1 a 1 1 ; 1 onl ; 1 a t 2 ; 1 on2 

This  defines  a latitude/longitude  range  where 
(latl,  1 on  1 ) is  the  1 owe  r left  corner  and 
(lat2,  lon2)  is  the  upper  right  corner. 

o r 

#clat ; clon;dlat  ;dlon 

This  defines  a 1 a t i t ud e / 1 ong i 
(clat-dlat,  clon-dlon)  is  the 
(clat+dlat,  clon+dlon)  is  the 

2 . GEOG 

Th is  is  an  abbreviation  for  a geographic  area 
defined  in  the  G EMP AK  geographic  table  wh i c h 
includes  abbreviations  for  states,  provinces  and 
countries,  as  well  as  other  names.  If  #GEOG  is 
entered,  the  user's  geographic  table,  GEOG . TBL , 
will  be  searched,  A * or  - after  the  name  may 
be  used  to  reduce/expand  the  area. 


tude  range  wh  ere 
1 owe  r left  corner 
upper  r ight  corner . 


3 . STN 

This  defines  an  area  centered  on  a station  found 
in  the  GEMPAK  station  table,  which  contains  US 
and  Canadian  surface  stations.  A * or  - after 
the  name  may  be  used  to  r e du c e / e xp and  the  area. 


4 . DSET 

Th is  includes  all  the  stations  in  the  current  dataset. 

5 . @ST 

This  area  includes  those  stations  located  in  the  state, 
province  or  country  defined  by  ST.  Only  some  countries 
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are  recognized  (US , CN ,MX , Cl , BW,  AU) ; other  countries 
ma y be  specified  using  method  6. 

6.  @CN : C . , . . . 

This  area  includes  those  stations  located  in  the 

country  defined  by  CN . 


7 . 


@STN 1 ; STN2 ; . . . ; STNn 

This  area  includes  the  stations 
may  be  a station  identifier  or  a 


listed,  where  STNn 
station  numb  e r . 


8.  SHDR : iloval : ihival 

This  area  defines  a range  of  valid  values  for  the 
station  header,  SHDR.  For  example,  SELV:0:2000 
specifies  stations  wh ose  elevations  are  less  than 
2000  me  t e r s . 

Graphics  areas  must  be  specified  using  methods  1-3. 

Subroutines  to  set  and  check  bounds,  LC_SBND  and  LC — INBN , are  included 
to  maintain  compatibility  with  earlier  versions  of  GEMPAK. 


ERROR  MESSAGES: 

[LC  -1]  ...  is  an  invalid  area  name. 

[LC  -2]  The  geographic  file  cannot  be  opened. 
[LC  -3]  The  station  file  cannot  be  opened. 

[LC  -4]  Area  name  ...  is  not  in  the  table. 

[LC  -5]  ...  is  an  invalid  graphics  area. 
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LC  Library  Calls 


LC_jVBND 

( area, 
ns  tn  , 

/ iartyp,  rlatll,  rlonll, 
stcn,  iret  ) 

LC_AREA 

( area, 

/ rltln,  stn,  nstn, 

state  , 

LC_COUN 

( s t c n , 

/ cnf  lag,  iret  ) 

LC__FLOC 

( point, 

/ rlat,  rlon,  iret 

) 

LCJSTN 

( s t n , / 

rlat,  rlon,  iret  ) 

LC_GARE 

( g a r e a , 

/ grltln,  iret  ) 

LC_INBN 

( r 1 a t , 

rlon,  / bound,  iret 

) 

LC—SARE 

( area, 

iflno,  / stn,  iret  ) 

LC_SBND 

( r i 1 1 n , 

/ iret  .) 

LCJUARE 

( area, 

newfil,  iflno,  / arecur,  / 

rlatur,  rlonur, 
iartyp,  iret  ) 


s tn , iret  ) 


s t n , 
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12.1  LC_ABND  - DECODE  SUBAREA 


This  subroutine  translates  a GEMPAK  subarea.  For  area  types  1 3, 

the  latitude/longitude  bounds  are  returned.  For  area  type  2,  STN 
contains  the  center  station.  For  area  type  6,  STN  contains  the 
list  of  stations.  For  area  types  5 and  7,  the  state  or  country  is 
returned  in  STCN.  Area  types  2 and  3 may  be  followed  by  a number 
of  * or  - to  contract  or  expand  the  region. 

LC_j\BND  ( AREA,  IARTYP , RLATLL , RLONLL , RLATUR , RLONUR , STN, 

NSTN , STCN,  I RET  ) 

Input  parameters: 

AREA  CHAR*  Area  name 

Ou  t pu  t par  ame  t e r s : 

IARTYP  INTEGER  Area  type 

-1  = none 

1 — area  name 

2 - center  on  station 

3 = lat/lon  bounds 

4 - DSET 

5 = ®ST 

6 = @STN1 ; . . . ; STNN 

7 = @CN:C 


RLATLL 

REAL 

L owe  r left  latitude 

RLONLL 

REAL 

Lower  left  longitude 

RLATUR 

REAL 

Upper  right  latitude 

RLONUR 

REAL 

Upper  right  longitude 

STN  (NSTN) 

CHAR* 

Stations 

NSTN 

INTEGER 

Number  of  stations 

STCN 

CHAR* 

S t a t e / c oun  t ry 

I RET 

INTEGER 

Return  code 

0 = area  f ound 
-1  — invalid  area  name 
-3  = station  file  open  error 
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12.2  LC.AREA  - PROCESS  A SUBAREA  FROM  AREA 


This  subroutine  processes  a single  subarea  from  the  input 
variable  AREA.  Information  about  the  subarea  is  returned. 
No  error  messages  are  written. 

LC_AREA  ( AREA,  RLTLN , STN , NSTN , STATE,  IARTYP,  I RET  ) 


Input  parameters: 

AREA  CHAR* 


Area  name 


Output  parameters: 
RLTLN  (4) 

STN  (NSTN) 
NSTN 
STATE 
IARTYP 


REAL 

CHAR* 

INTEGER 

CHAR* 

INTEGER 


I RET 


INTEGER 


La t i tude/1 ong i tude  bounds 
Center  station 
Number  of  stations 
Center  state  of  the  area 
Type  of  area 
-1  = none 

1 - area  name 

2 = center  on  station 

3 = 1 a t i t ud e / 1 ong i t ud e 

4 - DSET 

5 - 0 STATE 

6 = 0STN1 ; . . . ; STNN 

7 = 0CN:C 
Return  code 

0 ■=  n o rma  1 return 
-1  = invalid  area  name 
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12.3  LC_COUN  - CHECK  COUNTRY  NAME 


This  subroutine  checks  STCN  to  see  if  it  is  a country  abbreviation. 
The  following  countries  are  currently  recognized: 

US  United  States  CN  Canada 

MX  Mexico  BW  Bangladesh 

AU  Au  stralia  Cl  Ch i n a 

Countries  whose  abbreviations  will  conflict  with  US  state  names 
should  not  be  added  to  this  list. 

LC_COUN  ( STCN,  CNF LAG , I RET  ) 


Input  parameters: 

STCN  CHAR* 


State  / country  abbreviation 


Output  parameters: 

CNFLAG  LOGICAL 

I RET  INTEGER 


Country  flag 
Return  code 

0 — normal  return 
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12.4  LC FLOC  - FIND  LOCATION  OF  POINT 


This  subroutine  translates  a location  into  a latitude  and 
longitude.  The  location  may  be  entered  in  the  following  ways: 

LAT ; LON 
LAT/LON 

character  station  identifier 
station  numb  e r 


The  surface  station  table,  the  upper-air  station  table  and  the 
world  station  table  will  be  searched  for  stations. 


LCJLOC  ( POINT, 

RLAT,  RLON, 

I RET  ) 

Input  parameters: 

POINT 

CHAR* 

Location 

Output  parameters 

RLAT 

REAL 

La  t i tude 

RLON 

REAL 

Long i t ud  e 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-4  = station  not  in  table 
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12.5  LC_FSTN  - FIND  STATION  LOCATION 


Th is  subroutine  searches  the  station  table  file  for  a particular 
station  and  returns  the  latitude  and  longitude  of  the  station. 

The  input  parameter  STN  must  be  in  upper  case  letters. 

LC__FSTN  ( STN,  RLAT , RLON , I RET  ) 


Input  parameters: 

Station  identifier 

STN 

CHAR* 4 

Ou  t pu  t par  ame  t e r s : 

RLAT 

REAL 

Station  latitude 

RLON 

REAL 

Station  1 ong i tud  e 

I RET 

INTEGER 

Return  code 

0 = n o rma  1 return 
-3  = station  table 
-4  = station  not  in 

not  opened 
table 
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12.6  LC—GARE  - DEFINE  GAREA 


This  subroutine  processes  the  input  variable  GAREA.  Information 
about  the  type  of  area  input  is  returned.  Only  those  area  types 
wh ich  specify  a latitude/longitude  range  are  valid. 


LC_GARE  ( GAREA,  GRLTLN , I RET 

Input  parameters: 

GAREA  CHAR* 

Output  parameters: 

GRLTLN  ( 4 ) REAL 

I RET  INTEGER 


Graphics  area  name 


La t i tud e / 1 ong i t ud e bounds 
Re  turn  code 

0 = normal  return 
-5  = invalid  garea  name 


12-10 


LOCATION  (LC)  LIBRARY 


12.7  LC_INBN 


Th  is  subroutine 
wi  thin  the  range 

LC_I  NBN  ( RLAT , 

Input  parameters 
RLAT 
RLON 

Output  parameter 
BOUND 
I RET 


- CHECK  LAT/LON 


checks  a latitude  / longitude  pair  to  see  if  it  is 
specified  by  LC SBND. 

RLON,  BOUND,  I RET  ) 


REAL  Latitude 

REAL  Longitude 


LOGICAL 

INTEGER 


Flag  set  if  in  bounds 
Return  code 

0 = normal  return 
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12.8  LC_SARE  - DEFINE  AREA 


This  subroutine  sets  the  search  criteria  in  a EM  file  using  the 
value  for  AREA  input  by  the  user.  The  area  may  be  composed  of 
subareas  which  are  separated  by  slashes  (/).  The  EM  file  must  be 
opened  before  this  subroutine  is  called.  If  an  invalid  subarea  is 
encountered,  an  error  message  is  printed  and  an  error  is  returned. 
If  any  subarea  is  centered  on  a station,  that  station  is  returned 
in  STN . Note  that  any  subroutine  which  defines  a search,  such  as 
SF SSTN,  will  eliminate  the  search  set  by  this  subroutine. 

LC_SARE  ( AREA,  IFLNO,  STN,  I RET  ) 

Input  parameters: 

AREA  CHAR* 

IFLNO  INTEGER 

Output  parameters: 

STN  CHAR* 

I RET  INTEGER 


Area  to  be  defined 
File  number  for  EM  file 


Center  station  name 
Return  code 

0 « n o rma  1 return 
-1  - invalid  area  name 
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12.9  LC_SBND  - SET  LAT/LON  BOUNDS 


This  subroutine  sets  the  1 a t i t ud e / 1 ong i t ud e bounds  of  a geographic 
area.  Once  this  subroutine  has  been  called,  the  subroutine  LC — INBN 
may  be  called  to  check  whether  a latitude/longitude  location  is 
within  the  specified  range. 

LC_SBND  ( RLTLN , I RET  ) 

Input  parameters: 

RLTLN  (4)  REAL  Lower  left,  upper  right  lat/lon 

Ou  t pu  t par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 = no rma  1 return 
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12.10  LC_UARE  - DEFINE  NEW  AREA 


This  subroutine  updates  and  processes  the  user  input  for  AREA. 

It  calls  LC_SARE  only  if  the  area  name  has  changed  or  a new  file 
has  been  opened.  This  subroutine  is  useful  if  AREA  is  to  be 
defined  repeatedly.  ARECUR  is  the  current  active  area  whose 
value  is  set  in  this  subroutine  and  wh  ich  should  not  be  changed 
in  the  application  program. 

LC_UARE  ( AREA,  NEWFIL,  IFLNO,  ARECUR , STN , I RET  ) 


Input  parameters: 
AREA 

CHAR* 

I npu  t for  area 

NEWFIL 

LOG  I CAL 

N ew  file  flag 

IFLNO 

INTEGER 

File  numbe  r 

Input  and  output 
ARECUR 

par  ame  t e r s : 
CHAR* 

Current  area  name 

Output  paramters: 
STN 

CHAR* 

Station  at  center  of  ar 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-1  = invalid  area  name 
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LV_CCRD 
LV_CORD 
LV_DECD 
LV_DU  P L 
LV_GRNG 
LV—INPT 
LV_MANL 
LV_SORT 
LV__VASL 


Get  vertical  coord  name 

Get  vertical  coordinate 

Decode  single  level 

Eliminate  duplicate  levels 

Get  levels  from  range 

Decode  input  for  LEVEL  and  VCOORD 

Return  mandatory  levels 

Sort  levels 

Return  VAS  levels 
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Level  ( LV ) Library  S umma  r y 


The  LEVEL  library  processes  user  input  for  vertical  level  and 
vertical  coordinate* 

LV_INPT  translates  the  user  inputs  for  LEVELS  and  VCOORD  into  a 
list  of  levels.  The  input  for  LEVELS  may  be  a list  separated  by 
semicolons.  The  following  items  may  be  included  in  the  list: 

a single  level; 

MAN  for  the  mandatory  levels  below  100  mb; 

VAS  for  the  standard  VAS  levels; 
a range  of  levels  with  an  increment. 

The  following  items  are  also  valid,  provided  they  are  not  part  of 
a list: 

ALL  for  all  levels; 

a range  of  levels  without  an  increment. 


ERROR  MESSAGES: 


[LV 

+ 1] 

[LV 

-1] 

[LV 

-2] 

[LV 

-3] 

[LV 

-4] 

[LV 

-5] 

More  than  NEXP  values  found. 

Level  cannot  be  decoded. 

The  vertical  coordinate  for  ...  must  be  PRES. 
Invalid  vertical  coordinate. 

Invalid  input  for  LEVEL. 

Range  with  increment  cannot  include  SFC  (0). 
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LV  Library  Calls 


LV_CCRD 

( ivcord  t 

/ vcoord,  iret  ) 

LVJCORD 

( vcoord , 

/ vparm,  ivert,  iret  ) 

LV_E>ECD 

( clevel , 

/ rlev,  iret  ) 

LV_J)UPL 

( / nlev, 

rlevel,  / iret  ) 

LV_GRNG 

( start, 

stop,  inc,  nexp,  / rlevel,  / nlev,  iret  ) 

LV_INPT 

( level, 
i ve  r t , 

nexp,  vcoord,  / nlev,  rlevel,  levtyp,  vparm 
iret  ) 

LV_MANL 

( nexp , / 

nlev,  rlevel,  iret  ) 

LV_SORT 

( i ve  r t , 

/ nlev,  rlevel,  / iret  ) 

LV_VASL 

( nexp , / 

nlev,  rlevel,  iret  ) 

13-3 


LEVEL  (LV)  LIBRARY 


13.1  LV_CCRD  - GET  VERTICAL  COORD  NAME 


This  subroutine  translates  a numeric  value  for  IVCORD  into  its 
character  value  in  VCOORD . 


LV_CCRD  C IVCORD,  VCOORD,  I RET  ) 


Input  parameters: 

IVCORD 

INTEGER 

Numeric  vertical  coordinate 

Output  par  ame  t e r s : 

VCOORD 

CHAR* 

Vertical  coordinate 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-3  = invalid  coordinate 
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13.2  LV_CORD  - GET  VERTICAL  COORDINATE 

This  subroutine  converts  the  input  for  VCOORD  to  upper-case  and 
translates  it  to  a numeric  value. 

LV_CORD  ( VCOORD,  VPARM,  I VERT,  I RET  ) 

Input  parameters: 

VCOORD  CHAR*  Vertical  coordinate  input 

Output  parameters: 

VPARM  CHAR*  Upper-case  coordinate 

I VERT  INTEGER  Numeric  vertical  coordinate 

0 = NONE 

1 = PRES 

2 = THTA 

3 = EIGHT 

IRET  INTEGER  Return  code 

0 = normal  return 
-3  « invalid  coordinate 


13-5 


LEVEL  (LV)  LIBRARY 


13.3  LV_J)ECD  - DECODE  SINGLE  LEVEL 


This  subroutine  decodes  a single  level.  CLEVEL  must  be  a 
SFC,  or  TOP.  SFC  and  TOP  will  be  transformed  into  0 and 
respectively. 

LV__DECD  ( CLEVEL,  RLEV,  I RET  ) 


Inpu  t par  ame  t e r s : 

CLEVEL 

CHAR* 

Input 

character  level 

Output  par  ame  t e r s : 

RLEV 

REAL 

Level 

value 

I RET 

INTEGER 

Return 
0 * 
-1  - 

. code 

normal  return 
decode  error 

numbe  r , 
-1  , 
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13.4  LV_JXJPL  - ELIMINATE  DUPLICATE  LEVELS 


This  subroutine  eliminates  duplicate  levels  from  a list  of  levels. 
The  variables  NLEV  and  RLEVEL  are  updated. 

LV _DUPL  C NLEV,  RLEVEL,  I RET  ) 

Input  and  output  parameters: 

NLEV  INTEGER  Number  of  levels 

RLEVEL  (NLEV)  REAL  Levels 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
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13.5  LV_GRNG  - GET  LEVELS  FROM  RANGE 


This  subroutine  finds  the  levels  in  a range  with  an  increment. 
START,  STOP  and  INC  are  decoded  as  integers  and  the  levels  are 
c ompu  ted. 


LV  GRNG  ( START,  STOP,  INC.  NEXP , RLEVEL . NLEV.  I RET 


Input  parameters: 

START 

CHAR* 

STOP 

CHAR* 

INC 

CHAR* 

NEXP 

INTEGER 

Ou  t p u t par  ame  t e r s : 

RLEVEL  (NLEV) 

REAL 

NLEV 

INTEGER 

IRET 

INTEGER 

Start  of  range 
End  of  range 
I n c r emen  t 

Maximum  number  of  levels 


Leve Is  in  range 
Numbe  r of  levels 
Return  code 

1 = more  than  NEXP  values 
0 = normal  return 
-1  = input  cannot  be  decod 
-5=0  invalid  in  range  w 


e d 
i nc 
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13.6  LV_INPT  - DECODE  INPUT  FOR  LEVEL  AND  VCOORD 


This  subroutine  converts  the  user  input  for  LEVELS  and  VCOORD 
into  a list  of  levels.  The  input  for  LEVELS  may  be  a list 
separated  by  semicolons.  The  following  items  may  be  included 
in  the  list: 


a single  level; 

MAN  for  the  mandatory  levels  below  100  mb; 

VAS  for  the  standard  VAS  levels; 
a range  of  levels  with  an  increment. 

The  following  items  are  also  valid,  provided  they  are  not  part  of 
a list: 


ALL  for  all  levels; 

a range  of  levels  without  an  increment. 

If  a range  without  an  increment  is  entered,  the  limits  will  be 
returned  in  RLEVEL  and  LEVTYP  will  be  set  to  2. 


I f MAN  o r VAS  is  input,  the  input  vertical  coordinate  mu  s t be 
PRES.  The  names  SFC  and  TOP  may  be  used.  They  will  be  translated 
into  0 and  -1,  respectively. 


LV_INPT  ( LEVEL,  NEXP , VCOORD,  NLEV,  RLEVEL,  LEVTYP,  VPARM, 
I VERT,  I RET  ) 


Input  parameters: 
LEVEL 
NEXP 
VCOORD 


CHAR* 

INTEGER 

CHAR* 


Input  for  LEVEL 
Maximum  number  of  levels 
Input  for  VCOORD 


Output  parameters: 

NLEV  INTEGER 

RLEVEL  (NLEV)  REAL 
LEVTYP  INTEGER 


VPARM  CHAR* 

I VERT  INTEGER 


I RET 


I NTEGER 


Number  of  levels 
Levels  or  range 
Level  type 

0 - no  levels  input 

1 = list  of  levels 

2 = range  of  levels 
Vertical  coordinate 
Numerical  vertical  coord 

0 = NONE 

1 = PRES 

2 - THTA 

3 = HGHT 
Re  turn  code 

1 - too  many  levels 
0 = n o rma  1 return 
-2  = MAN,  VAS  need  PRES  cord 


13-9 


LEVEL  (LV)  LIBRARY 


-3 

-4 

-5 


i nva  1 i d 
i nva  lid 
range  w 


VCOORD 
i npu  t for 
i nc  can’t 


LEVEL 
have  0 
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13.7  LV_MANL  - RETURN  MANDATORY  LEVELS 


This  subroutine  returns  the  mandatory  levels  below  100  mb 
LV_MANL  ( NEXP.  NLEV,  RLEVEL , I RET  ) 


Input  parameters: 

NEXP  INTEGER  Maximum  number  of  levels 


Output  parameters: 

NLEV  INTEGER  Number  of  levels 

RLEVEL  (NLEV)  REAL  Levels 

IRET  INTEGER  Return  code 

1 = more  than  NEXP  values 
0 - normal  return 
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13.8  LV_SORT  - SORT  LEVELS 


This  subroutine  sorts  levels  from  the  surface  to  the  top  of  the 
atmosphere.  They  are  sorted  in  descending  order  if  IVERT  - 1; 
otherwise  the  levels  are  in  ascending  order.  In  either  case, 
the  surface  level  (RLEVEL  = 0)  is  first  and  the  top  level 
(RLEVEL  — -1  ) is  last.  Duplicate  levels  are  eliminated. 

LV_SORT  ( IVERT,  NLEV,  RLEVEL,  I RET  ) 


Input  parameters: 

IVERT  INTEGER 


Numeric  vertical  coordinate 

0 = NONE 

1 = PRES 

2 = THTA 

3 = HGHT 


Input  and  output  parameters: 
NLEV  INTEGER 

RLEVEL  (NLEV)  REAL 

Output  parameters: 

I RET  INTEGER 


N umb er  of  levels 
Vertical  levels 


Return  code 

0 — normal  return 
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13.9  LV__VASL  - RETURN  VAS  LEVELS 


This  subroutine  returns  the  standard  VAS  levels  of  1000,  9 
850,  700,  600,  500,  400,  350,  300,  250,  200,  175,  150,  125 
100  mb  . 

LV_VASL  ( NEXP,  NLEV,  RLEVEL , I RET  ) 


Input  parameters: 
NEXP 


INTEGER 


Maximum  number  of  level 


Output  parameters: 

NLEV  INTEGER 

RLEVEL  (NLEV)  REAL 
I RET  INTEGER 


Numbe  r of  levels 

Levels 

Return  code 

1 * more  than  NEXP  va 
0 = n o rma  1 return 


0, 

and 


u e s 
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Merge  upper-air  data 
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Upper -Air  Merge  (MR)  Library 


The  upper-air  merge  library  merges  mandatory  and  significant  level 
upper-air  reports  into  a single  station  sounding.  This  library  is 
called  by  the  SN  subroutines  to  merge  data  which  is  stored  as 
separate  parts  in  an  SN  file. 

The  main  subroutine  used  to  merge  data  is  MFL_UADT . This  subroutine 
takes  reports  for  mandatory,  significant  t emp  erature  and  significant 
wind  data,  both  below  and  above  100  mb,  and  creates  a sounding  where 
all  the  input  levels  are  present  with  data  interpolated  to  these 
levels,  if  necessary.  The  order  of  the  parameters  in  the  input 
reports  is  critical  to  the  proper  execution  of  this  subroutine. 

The  data  is  merged  using  the  following  sequence. 

1.  The  surface  data  is  found  by  checking  the  TTAA,  TTBB  and  PPBB 
reports. 

2.  The  below-  and  above-100-mb  mandatory  (TTAA,  TTCC)  data  reports 
are  c omb  i n e d . 

3.  The  significant  temperature  (TTBB,  TTDD)  reports  are  merged 
with  the  speed,  direction  and  height  set  to  missing. 

4.  The  height  at  all  levels  is  recomputed  using  one  of  the  three 
methods  described  below. 

5.  The  significant  wind  (PPBB,  PPDD)  reports  are  merged  using  the 
heights  from  the  reports  and  the  pressure  is  computed  by 
interpolating  the  LOG  (pressure)  linearly  with  height.  If  the 
significant  wind  data  wa  s reported  on  pressure  surfaces,  it  is 
merged  using  pressure,  and  the  heights  are  then  computed. 

6.  Missing  values  of  speed,  direction,  temperature  and  dewpoint 
are  computed  by  interpolating  linearly  with  respect  to 

LOG  (pressure) . 


three  methods  of  height  interpolation  can  be  specified  in 
Th  e s e a r e : 

= 1 The  height  is  computed  by  i n t e r p o 1 a t i ng  linearly  with 
respect  to  LOG  (pressure).  If  heights  cannot  be 
interpolated  at  the  top  of  the  sounding,  they  are 
computed  using  method  2. 


One  of 
IZTYPE. 

IZTYPE 
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IZTYPE  « 2 The  heights  are  replaced  with  the  moist  hydrostatic 

height  computed  using  the  temperature.  Heights  which 
were  reported  at  mandatory  levels  are  replaced  by 
the  computed  heights. 

IZTYPE  - 3 The  heights  reported  at  mandatory  levels  are  retained. 

Heights  at  levels  between  mandatory  levels  are  computed 
as  moist  hydrostatic  heights  and  scaled  to  fit  the 
mandatory  heights.  Above  the  top  mandatory  report, 
heights  are  computed  using  method  2. 

The  SN  subroutine  which  merges  data  transparently  sets  IZTYPE  to  3. 
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MR  Library  Calls 

MRJJADT  ( datman,  nman,  datsgt,  nsgt,  datsgw,  nsgw,  datamn,  namn, 
datast,  nast,  datasw,  nasw,  selv,  iztype,  / stndat, 
nlev,  idtype , i ret  ) 
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14.1  MILJJADT  - MERGE  UPPER-AIR  DATA 


This  subroutine  merges  mandatory  and  significant 


level  data. 


MIUJUADT 


( DATMAN,  NMAN , DATSGT , NSGT , 
DATAST,  NAST,  DATASW , NASW, 
IDTYPE , I RET  ) 


DATSGW,  NSGW, 
SELV,  IZTYPE, 


DATAMN, 
STNDAT , 


NAMN, 

NLEV, 


Input  parameters: 
DATMAN  (6, NMAN) 
NMAN 

DATSGT  (3, NSGT) 
NSGT 

DATSGW  (3. NSGW) 
NSGW 

DATAMN  (6, NAMN) 
NAMN 

DATAST  (3, NAST) 
NAST 

DATASW  (3,  NASW) 

NASW 

SELV 

IZTYPE 


REAL 

INTEGER 

REAL 

INTEGER 

REAL 

INTEGER 

REAL 

INTEGER 

REAL 

INTEGER 

REAL 

INTEGER 

REAL 

INTEGER 


Mandatory  data  below  100  mb 

Number  of  levels 

Sig  temp  data  below  100  mb 

Number  of  levels 

Sig  wind  data  below  100  mb 

Number  of  levels 

Mandatory  data  above  100  mb 

Numbe  r of  levels 

Sig  t emp  data  above  100  mb 

Number  of  levels 

Sig  wind  data  above  100  mb 

N umb er  of  levels 

Surface  elevation 

Type  of  height  interpolation 

1 = i n t wr  t log  p 

2 - moist  hydrostatic  comp 

3 - scaled  moist  hydro  comp 


Output  parameters: 

STNDAT  (6, NLEV)  REAL 
NLEV  INTEGER 

IDTYPE  (NLEV)  INTEGER 


I RET 


INTEGER 


Station  data 
Number  of  levels 
Data  type  flags 

1 = mandatory 

2 - sig  t emp  e r a t u r e 

3 “ sig  wind 
Re  turn  code 

0 = normal  return 
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Non-TAE  (NT)  Library 


The  non-TAE  library  contains  subroutines  to  replace  the  TAE  calls 
This  library  initializes  parameter  values  from  a file  called 
NOTAE.GLB.  If  the  file  is  not  present,  it  will  be  created  and 
defaults  f r om  GEMGLB . PDF  wi 1 1 be  used.  NT__ EXIT  updates  the  value 
of  the  parameters  in  the  file.  Since  all  parameters  are  saved  in 
the  file,  there  is  no  distinction  between  global  and  local  values 

When  using  the  non-TAE  interface,  a dynamic  tutor  is  available 
with  the  following  commands: 

list  values  for  program  parameters 
list  value  for  par  ame  ter  PARM 
changes  parameter  value 
gives  help  on  progr am 
write  the  parameter  help  file 
execute  the  progr  am 
exit  the  progr  am 

saves  current  parameters  in  FILE. NTS 
restores  parameters  from  FILE. NTS 

These  subroutines  are  called  by  the  IP  library  and  should  not  be 
called  directly  by  applications  programs. 


LIST 

LIST  PARM 
PARM= VALUE 
HELP 

HELP  PARM 

RUN 

EXIT 

SAVE  FILE 
RESTORE  FILE 


ERROR  MESSAGES: 


[NT  -1] 
[NT  - 2 ] 
[NT  -3] 
[NT  -4] 
[NT  -5] 
[NT  - 6 ] 
[NT  - 7 ] 
[NT  -8] 
[NT  -9] 
[NT  -10] 


NOTAE.GLB  cannot  be  opened  for  write  access. 

The  global  parameter  file  GEMGLB  cannot  be  opened. 
There  are  too  many  parameters. 

Error  writing  to  NOTAE.GLB. 

...  is  an  unrecognized  c ommand * 

There  is  no  help  file  for  .... 

...  is  an  unrecognized  parameter. 

...  is  an  amb  iguous  par  ame  ter  abbreviation. 

Th  e save  file  ...  is  invalid. 

Th  e par  ame  ter  file  for  ...  cannot  be  opened. 
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NT_J)FLT 

NT_DFTS 

NT_J3YNM 

NT _EX  I T 

NT_HELP 

NT_IDNT 

NT_I  NIT 

NT_L I ST 

NT__REST 

NT_RQST 

NT_SAVE 

NT_STR 

NT_STRP 

NT_SVAR 

NT_ULOC 


NT  Library  Calls 

( / i r e t ) 

( / i r e t ) 

( / done,  iret  ) 

( / iret  ) 

( pname  , / iret  ) 

( prog  rm,  / iret  ) 

( / iret  ) 

( pname,  list,  / iret  ) 

( file,  / iret  ) 

( / iret  ) 

( file,  / iret  ) 

( pname,  / parm,  iret  ) 

( p r og rm,  / iret  ) 

( i npu  t , / iret  ) 

( pname,  parm,  / iret  ) 
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15.1  NT_X»FLT  - GET  DEFAULTS 


This  subroutine  gets  default  values  for  the  TAE  paramet 
the  local  NOTAE.GLB  file  cannot  be  read,  GEMGLB.PDF  is 

NT_DFLT  ( I RET  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = no rma  1 return 
-2  = unable  to  open 
-3  - too  many  varia 


e r s . If 
read. 


GEMGLB 
b 1 e s 
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15.2  NT_DFTS  - GET  SYSTEM  DEFAULTS 


This  subroutine  reads  the  global  parameters  and  their  default 
values  from  the  GEMPAK  system  file  GEMGLB.PDF. 

NT__DFTS  ( I RET  ) 

Output  par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 “ normal  return 
-2  - unable  to  open  GEMGLB 
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15,3  NT_J3YNM  - DYNAMIC  TUTOR 


This  subroutine  replaces  the  dynamic  tutor  for  the  non-TAE  user. 
Error  messages  which  are  encountered  in  processing  user  input 
will  be  written  to  the  user’s  terminal. 

NTJ3YNM  ( DONE,  I RET  ) 

Output  par ame  t e r s : 

DONE  LOGICAL  Program  exit 

IRET  INTEGER  Return  code 

0 = no rma  1 


flag 

return 
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15.4  NTJXIT  - NON-TAE  EXIT 


This  subroutine  must  be  called  to  exit  from  the  non-TAE.  Current 
variable  values  are  written  to  the  file  containing  global  values. 

NT_JEX  I T ( I RET  ) 


Ou  t pu  t par  ame  t e r s : 

I RET  INTEGER 


Return  code 

0 - normal  return 
-1  = unable  to  open  NOTAE.GLB 
-4  = error  writing  to  file 
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15.5  NT_JIELP  - NON-TAE  HELP 


This  subroutine  writes  a help  file  for  a variable.  If  PNAME 
is  blank,  help  for  the  program  will  be  written. 

NT_HELP  ( PNAME,  I RET  ) 


Input  parameters: 
PNAME 

CHAR* 

Va  r i abl e 

Output  parameters: 
I RET 

INTEGER 

Return  code 

0 - normal  return 
-6  = no  help  available 
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15.6  NT_IDNT  - PROGRAM  IDENTIFICATION 


This  subroutine  saves  the  name  of  the  program  being 
The  parameters  used  in  the  program  are  read  from  the 
If  $RESPOND  is  set,  a dynamic  tutor  is  entered. 

NT_IDNT  ( PROGRM,  I RET  ) 

Input  par  ame  t e r s : 

PROGRM  CHAR*  Program  name 


Output  parameters: 

IRET  INTEGER  Return  code 

0 = no  rma  1 r e t u 
-10  = pdf  cannot 


executed . 
PDF  file. 


r n 

be  opened 
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15.7  NT_INIT  - INITIALIZE  NON-TAE 


This  subroutine  does  the  initialization  for  the  non-TAE  mode. 

The  file  NOTAE.GLB  is  read  to  obtain  global  variable  values.  An 
error  opening  the  file  with  write  access  will  prevent  global 
values  fr  om  beingsaved. 

NT_I  NIT  ( I RET  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
-1  - too  many  variables 
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15.8  NT_X  I ST  - LIST  VARIABLES 

This  subroutine  lists  the  current  value  for  the  variable.  If 
PNAME  is  blank,  all  the  variables  for  the  current  programwill 
be  listed. 

NT_L I ST  ( PNAME,  I RET  ) 


Input  par  ame  ters: 

PNAME 

CHAR* 

Va  r i a b 1 e name 

LIST 

LOGICAL 

List  flag 

Ou  t pu  t par  ame  ters: 

I RET 

INTEGER 

Return  code 

0 = no  rma  1 return 
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15.9  NT _JREST  - RESTORE  PARAMETER  FILE 


This  subroutine  restores  a parameter  file  for  the  non-TAE. 
NT_REST  ( FILE,  I RET  ) 

Input  parameters: 

FILE  CHAR*  Input  file  name 

Output  par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 = no  rma  1 return 
-9  = invalid  file  name 
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15.10  NT __RQST  - PARAMETERS  REQUESTED 


This  subroutine  lists  the  variables  used  in  the 
NT__RQST  ( I RET  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - normal 


p r o g r am . 


return 
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15.11  NT_SAVE  - SAVE  PARAMETER  FILE 


This  subroutine  saves  a parameter  file  for  the  non-TAE. 
NT_SAVE  ( FILE,  I RET  ) 

Input  parameters: 

FILE  CHAR*  Input  file  name 

Output  parameters: 

I RET  INTEGER  Return  code 

0 = normal  return 
-9  = invalid  file  name 
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15.12  NT_STR  - GET  VARIABLE  VALUE 


This  subroutine  receives  a string  variable  from  the  non-TAE. 

If  the  parameter  does  not  have  a value,  PARM  is  set  to  blanks. 
If  no  more  variables  can  be  added  to  the  global  table,  an  error 


message  is  written  and  IRET  is 
NT_STR  ( PNAME,  PARM,  IRET  ) 

set  to  - 3 . 

Input  parameters: 

PNAME 

CHAR* 

Variable  name 

Output  par  ame  t e r s : 

PARM 

CHAR* 

Va  riable  value 

IRET 

INTEGER 

Return  code 

0 = normal  return 
*1  = too  many  variables 
-3  = too  many  parameters 
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15.13  NT_STRP  - READ  .PDF  VARIABLES 


This  subroutine  receives  the  name  of  the  program  being  executed 
and  reads  the  program*  s .PDF  file  in  GEMEXE  to  make  a list  of  the 
variables  to  be  used.  If  a variable  fr om  the  PDF  file  is  also 
in  the  NOTAE.GLB,  then  a flag  is  set  showing  it  is  being  used. 
Otherwise,  the  variable  is  added  to  the  global  list. 

NT_STRP  ( PROGRM,  I RET  ) 

Input  parameters: 

PROGRM  CHAR*  Program  name 

Ou  t pu  t par  ame  t e r s : 

I RET  INTEGER  Return  code 

0 * normal  return 
-10  - unable  to  open  PDF  file 
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15.14  NT_SVAR  - DEFINE  VARIABLE 


Th is  subroutine 
It  ass  ume  s that 
may  be  a unique 
the  variable  is 


sets  the  value  of  a variable  in  a dynamic  tutor, 
input  is  in  the  form  VAR = VALUE . The  variable 
abbreviation  of  a current  program  variable.  If 
any  other  global,  the  full  name  must  be  input. 


NT_SVAR  ( INPUT, 

I RET  ) 

Input  parameters: 
INPUT 

CHAR* 

I npu  t 

string 

Output  parameters: 
I RET 

INTEGER 

Return 
0 « 

code 

norma  1 return 
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15.15  NT_ULOC  - UPDATE  LOCAL  VARIABLE 


This  subroutine  saves  the  value  of  a variable. 
NT_ULOC  ( PNAME , PARM,  I RET  ) 

Input  parameters: 


PNAME 

CHAR* 

Variable  name 

PARM 

CHAR* 

Variable  value 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 * normal  return 
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Objective  Analysis  (OA)  Library  Summary 


The  objective  analysis  library  performs  general  objective  analysis 
functions. 


Three  areas  are  defined  in  the  objective  analysis  programs: 


GRID 

EXTEND 

DATA 


Grid  area 
Extend  grid 
Da  t a area 


Computed  grid  area 

Grid  area  extended  for  first  pass 
Da  ta  subset  area. 


These  areas  are  specified  by  the  lower  left  and  upper  right  corners. 
If  the  grid  projection  is  not  a 1 a t i t ud e / 1 ong i t ud e (CED)  projection, 
the  range  for  the  grid  or  extend  area  may  not  be  identical  with  the 
range  in  GRID  or  EXTEND. 


Information  about  the  grid  area  is  obtained  from  the  grid  navigation 
block  which  is  stored  in  the  grid  file.  The  data  area  and  extend 
area  are  stored  in  the  analysis  block.  Two  types  of  analyses  blocks 
are  available.  The  contents  of  these  blocks  are: 


WORD 


CONTENTS  for  type  1 


CONTENTS  for  type  2 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11-13 

14-17 

18 


type  = 1.0 
DELTAN 
DELTAX 
DELTAY 

GAMMA  (not  used) 
GBNDS  (1) 

GBNDS  (2) 

GBNDS  (3) 

GBNDS  (4) 

EBNDS  ( 1 ) 

EBNDS  (2-4) 

DBNDS  (1-4) 


type  = 
DELTAN 

2 . 0 

I EXTND 

(1) 

I EXTND 

(2) 

I EXTND 

(3) 

I EXTND 

(4) 

GBNDS 

(1) 

GBNDS 

(2) 

GBNDS 

(3) 

GBNDS 

(4) 

EBNDS 

(1-3) 

EBNDS 

(4),  DBNDS  (1-3) 

DBNDS 

(4)  . 

These  variables  have  the  following  meanings: 


DELTAN 

DELTAX 

DELTAY 

I EXTND 

GBNDS 

EBNDS 

DBNDS 


station  spacing  (degrees) 
spacing  in  x direction  (degrees) 
spacing  in  y direction  (degrees) 
n umb er  of  points  to  extend  grid 
grid  area  corners 
extend  grid  area  corners 
data  subset  corners. 


Note  that  analysis  type  1 assumes  that  the  grid  projection  is  CED. 
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ERROR  MESSAGES 


[OA  -1] 
[OA  -2] 
[OA  -3] 
[OA  -4] 
[OA  -5] 
[OA  -6] 


Grid  file  ...  could  not  be  opened. 

Invalid  grid  projection  area. 

Gu ess  file  ...  could  not  be  opened. 

An alysis  and  guess  grids  have  different  navigations. 
Guess  grid  could  not  be  found. 

Guess  grid  does  not  align  with  unextended  analysis  grid. 


16-3 


OBJECTIVE  ANALYSIS  (OA)  LIBRARY 


OA_BARN 

OAJBOXC 
OA_GF  I L 

OA_GUES 

OA_IGRD 

OA^LTLN 
OA^NAVG 
OA^_S  I NT 

OA-5VFSR 

OAJM3RD 

OA_WRMS 


OA  Library  Calls 

( ngrid,  weight,  srad,  kexy,  nstn,  data,  slat,  slon, 
gelat,  gelon,  coslsq,  / isn,  grid,  iret  ) 

( slat,  slon,  nstn,  iextnd,  / srow,  scol,  iret  ) 

( gdfile,  / gdcur,  guess,  gscur,  / igdfln,  igdgs,  gsflag, 
gsdttm,  deltan,  gltln,  kex,  key,  iextnd,  iret  ) 

( gg.  ix,  iy,  iextnd,  / ag,  ing,  ngrid,  kex,  key,  iret  ) 

( ngrid,  kex,  key,  kexkey,  iextnd,  gadttm,  iglvl,  igvcr, 
gparm,  gsflag,  gsdttm,  / grid,  iret  ) 

( kex,  key,  iextnd,  / gelat,  gelon,  coslsq,  iret  ) 

( rnvblk,  gsnvbk,  navsz,  / gsflag,  iret  ) 

( ngrid,  nstn,  data,  srow,  scol,  kex,  key,  grid,  iextnd, 

/ sdint,  rms , isn,  iret  ) 

( deltan,  search,  / weight,  srad,  iret  ) 

( igdfln,  gdattm,  ngrid,  parm,  level,  ivcord,  grid,  kex, 
key,  iextnd,  / iret  ) 

( ipass,  parms,  nparms,  levels,  nlev,  rms,  isn,  / iret  ) 
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16.1  OA-J3ARN  - PERFORM  BARNES  ANALYSIS 


This  subroutine  performs  a single  pass  of  a Barnes  analysis.  The 
weighting  function  used  is 

[ EXP  ( DIST  **  2 / WEIGHT  ) ] 

where  DIST  is  the  distance  from  the  station  to  the  grid  point. 
Locations  and  distances  in  this  subroutine  are  now  defined  in 
lat i tude/ long i tude  . Distance  between  a grid  point  and  a station 

is  c ompu ted  as 


DIST  **  2 - [ ( lat  (grid) 
( ( Ion  (grid) 


lat  (stn)  ) **  2 + 

Ion  (stn)  ) **  2 ) * coslsq  (grid) 


] 


ISN  is  the  number  of  stations  used  for  each  grid  computed.  Only 
data  within  the  distance  [ SQRT  ( SRAD)  ] of  a grid  point  is 
included  in  the  analysis. 


OA^BARN  ( NGRID,  WEIGHT,  SRAD,  KEXY , NSTN,  DATA,  SLAT,  SLON, 
GELAT,  GELON,  COSLSQ,  ISN,  GRID,  I RET  ) 


Input  parameters: 


NGRID 

INTEGER 

WEIGHT 

REAL 

SRAD 

REAL 

KEXY 

INTEGER 

NSTN 

INTEGER 

DATA 

REAL 

(NGRID, NSTN) 

SLAT  (NSTN) 

REAL 

SLON  (NSTN) 

REAL 

GELAT  (KEXY) 

REAL 

GELON  (KEXY) 

REAL 

COSLSQ  (KEXY) 

REAL 

tput  parameters: 

ISN  (NGRID) 

INTEGER 

GRID 

REAL 

(NGRID, KEXY) 

I RET 

INTEGER 

Number  of  grids 
Weighting  factor 
Search  radius  in  grid  coords 

# of  points  in  extend  grid 
N umb  er  of  stations 
Station  data 

Station  latitudes 

Station  1 ong i tud  e s 

Grid  point  latitudes 

Grid  point  longitudes 

COS  (lat)  squared  at  grid  pts 

# stations  used  for  grid 
Grid  data 

Return  code 

0 = normal  return 


OBJECTIVE  ANALYSIS  (OA)  LIBRARY 


16.2  OA^BOXC  - COMPUTE  STATION  ROW/ COL 


This  subroutine  translates  station  latitude  and  longitude  into 
the  row  and  column  numbers  in  the  extend  grid.  The  first  two 
values  in  IEXTND  are  used  to  translate  grid  coordinates  to  the 
extend  grid  coordinates. 

OA-BOXC  ( SLAT,  SLON,  NSTN , IEXTND,  SROW,  SCOL , I RET  ) 

Input  parameters: 

SLAT  (NSTN)  REAL 

SLON  (NSTN)  REAL 

NSTN  INTEGER 

IEXTND  (4)  INTEGER 

Output  parameters: 

SRCW  (NSTN)  REAL  Rows  in  extend  grid 

SCOL  (NSTN)  REAL  Columns  in  extend  grid 

IRET  INTEGER  Return  code 

0 - no rma  1 return 
-2  - invalid  grid  projection 


Station  latitudes 
Station  longitudes 
Number  of  stations 
Extend  grid  points 
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16.3  OA_GFIL  - OPEN  GRID  FILE 


and  returns 


the  info  rma  t i on 
The  grid  area 
extend  area  and 


This  subroutine  opens  a grid  file 
needed  to  perform  a Barnes  objective  analysis 
is  obtained  from  the  navigation  block.  The  ..... 
the  station  spacing  are  obtained  from  the  ana  ysis  oc  ' 

The  first-guess  grid  file  is  also  opened  and  a check  is  done 

ile  and  the  analysis  file  have  the  same 
file  exists,  DG_I NIT  is  called. 


t o 


see  that  the 
navigation. 


guess  file 
If  a guess 


OA_GF  I L 


( GDFILE,  GUESS,  GDCUR , GSCUR, 
GSDTTM,  DELTAN,  GLTLN , KEX, 


IGDFLN , IGDGS , GSFLAG , 
KEY,  IEXTND,  I RET  ) 


Input  parameters: 

GDFILE  CHAR* 

GUESS  CHAR* 

Input  and  output  parameters: 
GDCUR  CHAR* 

GSCUR  CHAR* 

Ou  t pu  t par  ame  t e r s : 


IGDFLN 

INTEGER 

IGDGS 

INTEGER 

GSFLAG 

LOGICAL 

GSDTTM 

CHAR* 

DELTAN 

REAL 

GLTLN 

(4) 

REAL 

KEX 

INTEGER 

KEY 

INTEGER 

I EXTND 

(4) 

INTEGER 

IRET 

INTEGER 

Grid  file 

First  guess  grid  file/time 


Cu  rrent  grid  file 
Current  guess  grid  file 


Grid  file  number 

Guess  file  number 

Guess  file  existence  flag 

Guess  GEMPAK  time 

Stat ion  spacing 

Grid  area 

Number  of  x points  in  ELTLN 
Number  of  y points  in  ELTLN 
Grid  extension  size 
Return  code 

0 = normal  return 
-1  = grid  file  open  error 
-3  = guess  file  open  error 
-4  = navigation  discrepancy 
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16.4  OA_GUE S - PUT  GUESS  ON  ANALYSIS  GRID 


This  subroutine  puts  the  guess 

grid  into 

OA^JGUES  ( GG,  IX, 

IY,  IEXTND, 

AG,  ING, 

Input  parameters: 

GG  (IX,  IY) 

REAL 

Gue  s s 

IX 

INTEGER 

Gue  s s 

IY 

INTEGER 

Guess 

IEXTND  (4) 

INTEGER 

Grid 

ING 

INTEGER 

Posit 

NGRID 

INTEGER 

Total 

KEX 

INTEGER 

Ana  1 y ; 

KEY 

INTEGER 

An  a 1 y i 

grid 

grid 

grid 


x d imens i on 
y dimension 


sf  grid  pos i t i ons 
x d imens i on 
y dimension 


Output  parameters: 

AG  (NGRID,  KEX,  KEY)  REAL 
I RET  INTEGER 


Analysis  grid  (incl  extension) 
Return  code 

0 = normal  return 
-6  — grid  alignment  error 
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16.5  OA^IGRD  - INITIALIZE  GRID  TO  ZERO 


This  subroutine 
grid  values. 


initializes  grid  data  to  either  zero  or  first-guess 


OA^_I GRD  ( NGRID,  KEX , KEY,  KEXKEY , IEXTND,  GADTTM,  IGLVL , 
IGVCR,  GPARM,  GSFLAG,  GSDTTM,  GRID,  IRET  ) 


Input  parameters: 
NGRID 
KEX 
KEY 

KEXKEY 
IEXTND  (4) 
GADTTM 

IGLVL  (NGRID) 
IGVCR  (NGRID) 


INTEGER 

INTEGER 

INTEGER 

INTEGER 

INTEGER 

CHAR* 

INTEGER 

INTEGER 


GPARM  (NGRID)  CHAR* 
GSFLAG  LOGICAL 

GSDTTM  CHAR* 


N umb er  of  grids 
X dimension  of  extend  grid 
Y dimension  of  extend  grid 
KEX  * KEY 

Extend  region  specification 
Analysis  time 
Levels  of  grids 
Vertical  coordinates 

0 - NONE 

1 - PRES 

2 = THTA 

3 - HGHT 
Par  ame  t e r s 

Flag  for  first  guess 
Guess  time 


Output  parameters: 

GRID  REAL  Grid  data 

(NGRID,  KEXKEY) 

IRET  INTEGER  Return  code 

0 - normal  return 
-5  “ guess  does  not  exist 
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16.6  OA_LTLN  - COMPUTE  LAT/LON  FOR  GRID 


This  subroutine  computes  the  latitude  and  longitude  at  each  grid 
point  in  the  extend  grid  area.  The  grid  coordinate  system  must 
be  defined  in  GEMPLT  before  this  subroutine  is  called. 


OA^LTLN  ( KEX , KEY,  IEXTND,  GELAT,  GELON,  COSLSQ,  I RET  ) 


Input  parameters: 

KEX  INTEGER 

KEY  INTEGER 

IEXTND  (4)  INTEGER 

Output  parameters: 

GELAT  (KEX, KEY)  REAL 
GELON  (KEX, KEY)  REAL 
COSLSQ (KEX, KEY)  REAL 
I RET  INTEGER 


* of  x points  in  extend  grid 

* of  y points  in  extend  grid 

* of  points  to  extend  grid 

Latitudes  in  degrees 
Longitudes  in  degrees 
Cosine  of  latitude  squared 
Return  code 

0 « no rma  1 return 
■2  - grid  projection  error 
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16.7  OA_NAVG 


Th is  subroutine  ch 
against  that  of  th 

OA—IGRD  ( RNVBLK , 

Input  parameters: 
RNVBLK  (NAVSZ ) 
GSNVBK  (NAVSZ) 
NAVSZ 

Output  parameters: 
GSFLAG 
I RET 


COMPARE  GRID  NAVIGATIONS 


ecks  the  navigation  block  of  the  analysis  grid 
e guess  grid. 

GSNVBK,  NAVSZ,  GSFLAG,  I RET  ) 

REAL  An alysis  grid  navigation  block 

REAL  Guess  grid  navigation  block 

INTEGER  Navigation  length 

LOGICAL  Check  flag 

INTEGER  Return  code 

0 - normal  return 
-4  = no  match 
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16.8  OA — S I NT  - INTERPOLATE  GRID  TO  STATIONS 


This  subroutine  interpolates  data  from  a grid  back 
using  a bilinear  interpolation,  and  computes  the  di 
between  the  original  data  and  the  interpolated  valu 
interpolated  to  all  stations  in  the  extend  area,  bu 
within  the  grid  area  are  used  to  compute  the  RMS  va 
the  number  of  stations  used  to  compute  the  RMS  valu 

OA— SINT  ( NGRID,  NSTN , DATA,  SRCKV,  SCOL , KEX , KEY, 
SDINT , RMS,  ISN,  IRET  ) 


to  the  stations 
fference 
e s . Da  t a are 
t only  s t at i ons 
lues . ISN  is 
e . 

GRID,  IEXTND, 


Inpu  t par  ame t e r s : 


NGRID 

INTEGER 

NSTN 

INTEGER 

DATA 

REAL 

(NGRID, NSTN) 

SRCW  (NSTN) 

REAL 

SCOL  (NSTN) 

REAL 

KEX 

INTEGER 

KEY 

INTEGER 

GRID 

REAL 

(NGRID, KEX, KEY) 

IEXTND  (4) 

INTEGER 

pu  t par  ame  t e r s : 

SDINT 

REAL 

(NGRID, NSTN) 

RMS  (NGRID) 

REAL 

ISN  (NGRID) 

INTEGER 

IRET 

INTEGER 

N umb er  of  grids 
Number  of  stations 
Station  data 

Station  rows 
Station  columns 
X points  in  extend  grid 
Y points  in  extend  grid 
Grid  data 

Grid  area  extensions 


Station  differences 
RMS  values 

# of  stations  in  grid  area 
Return  code 

0 * no rma  1 return 
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16.9  OA_WFSR  - COMPUTE  WEIGHTING  FUNCTION 


This  subroutine  computes  the  weighting  factor  and  search 
be  used  in  the  Barnes  analysis.  The  weighting  factor  is 
using  the  fo  rmu  1 a : 


radius  to 
c ompu  ted 


WE I GHT  - [ 5.051457  * ( DELTAN  *2.  / P I ) * * 2 ] 


The  search  radius,  SRAD , is  computed  as  SEARCH  * WEIGHT.  This 
limits  the  search  area  to  stations  whose  weights  will  be  larger 
than  [ EXP  ( -SEARCH  ) ] . If  SEARCH  is  non- po s i t i ve , a value 

of  20  will  be  used.  Both  the  weighting  factor  and  search  radius 
should  be  multiplied  by  GAMMA  for  the  second  pass  analysis. 


OAWVFSR  ( DELTAN,  SEARCH,  WEIGHT,  SRAD,  I RET  ) 


Inpu  t par  ame  t e r s : 

DELTAN  REAL 

SEARCH  REAL 

Output  parameters: 

WEIGHT  REAL 

SRAD  REAL 

I RET  INTEGER 


Station  spacing 

User  input  search  condition 


Weighting  factor 
Search  radius 
Re  turn  code 

0 = normal  return 
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16.10  OAJW3RD  - WRITE  GRIDS  TO  FILE 


This  subroutine  writes  grids  computed  in  an  obj 
the  grid  file.  Although  the  data  in  GRID  have 
extend  area,  only  the  data  in  the  grid  area  are 


ective  analysis  to 
been  c omp uted  for  t 
written  to  the  fil 


he 
e . 


OA_\VGRD 


( IGDFLN , GDATTM,  NGRID,  PARM,  LEVEL,  IVCORD,  GRID,  KEX 
KEY,  IEXTND,  I RET  ) 


Input  parameters: 
IGDFLN 
GDATTM 
NGRID 

PARM  (NGRID) 

LEVEL  (NGRID) 
IVCORD  (NGRID) 
GRID 

(NGRID, KEX, KEY) 

INTEGER 

CHAR* 

INTEGER 

CHAR* 

INTEGER 

INTEGER 

REAL 

Grid  file  numbe  r 
Date/time  for  grids 
Number  of  grids 
Par  ame  t e r s 
Levels 

Vertical  coordinate 
Gr  id  data 

KEX 

KEY 

IEXTND  (4) 

INTEGER 

INTEGER 

INTEGER 

X points  in  extend  area 
Y points  in  extend  area 
Grid  extension 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 = n o rma  1 return 
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16.11  OA^WRMS  - WRITE  RMS  ERRORS 


This  subroutine  writes  RMS  values 

OA^WRMS  ( I PASS,  PARMS,  NPARMS  , 

Input  par  ame  t e r s : 

I PASS  INTEGER 

PARMS  (NPARMS)  CHAR* 

NPARMS  INTEGER 

LEVELS  (NLEV)  INTEGER 
NLEV  INTEGER 

RMS  REAL 

(NPARMS,  NLEV) 

ISN  INTEGER 

(NPARMS, NLEV) 

Output  parameters: 

I RET  INTEGER 


f r om  an  objective  analysis. 
LEVELS,  NLEV,  RMS,  ISN,  I RET  ) 

Pass  number 
Par  ame  t e r s 

Number  of  parameters 
Leve 1 s 

Number  of  levels 
RMS  values 

Number  of  stations  reporting 


Return  code 

0 - normal  return 
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PC_CMLV 
PC_CMST 
PC_CMVR 
PC—CMVS 
PC_DFLS 
PC_DFLV 
PC_DF  ST 
PC_FLVL 

PC IN  IT 

PC_INTP 
PC_S  LCD 
PC_SSCD 
PC—SSTN 
PC_STIM 


Compute  station  and  level  parms 
C omp ute  station  data 
Compute  data  for  vertical  level 
Compute  data  for  level  number 
Define  station  and  level  parms 
Define  computed  level  parameters 
Define  computed  station  parameters 
Find  levels  in  a coordinate  system 
Initialize  PC  subroutines 
Interpolate  between  two  levels 
Define  level  conditions 
Define  station  conditions 
Define  station  information 
Set  date/t ime 
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Parameter  Conversion  (PC)  Library  Summary 


The  Parameter  Conversion  Library  is  used  to  compute  the  desired 
meteorological  parameters  for  both  upper-air  and  surface  programs. 

In  order  to  use  the  package  the  programmer  must  call  PC_INIT  first. 
This  subroutine  provides  information  about  the  data  set  to  the 
conversion  package.  In  particular,  it  specifies  the  names  of  the 
parameters  which  are  included  in  the  data  set.  If  PC_INIT  is  called 
a second  time,  all  calls  to  define  output  parameters  must  be 
repeated. 

PC_STIM  defines  the  current  data  set  time  to  GEMPAK.  It  is  not  used 
currently,  but  parameters  which  encode  the  time  may  be  defined  in 
the  future. 

There  are  two  types  of  parameters  which  can  be  computed  by  the  PC 
subroutines.  LEVEL  parameters  include  parameters  computed  at  a 
specific  level  of  the  atmosphere  as  well  as  layer  parameters  which 
are  computed  for  a layer  specified  by  two  levels.  Level  parameters 
at  a specific  level  include  TMPC  and  MIXR.  Layer  parameters,  such  as 
RICH  and  BVFQ,  use  the  two  significant  levels  bounding  the  input 
level.  STATION  parameters,  such  as  SELV  and  stability  indices,  have 
a single  value  associated  with  the  station. 


Conditions  may  now  be  defined  for  each  type  of  parameter.  These 
conditions  are  defined  in  the  subroutines  listed  below.  The 
conditional  functions  >,  < and  - will  return  data  only  if  the 
condition  is  met.  For  example,  TMPC  > 0 will  only  return  reports  at 
levels  where  the  temperature  is  greater  than  or  equal  to  0.  The 
conditional  functions  +,  -,  *,  and  / will  perform  the  required 

function  on  the  specified  parameters.  For  example,  if  TMPC  = 12.34, 
TMPC  * 10  will  return  123.4.  Finally,  parameters  requiring  user 
input  use  the  symbols  !,  % and  $.  By  convention,  1 precedes  a layer 
depth,  % precedes  the  numerical  value  of  the  vertical  coordinate  and 
$ specifies  a storm  direction. 

The  PC  library  contains  subroutines  to  define  parameters  to  be 
computed  and  corresponding  subroutines  to  perform  the  computations. 
The  following  chart  lists  these  subroutines  and  the  types  of 
par  ame  t e r s for  wh  i c h they  are  designed. 


The  STATION  & LEVEL  subroutines  should  be  used  whenever  the 


parameters  are  to  be  returned  in  a single  array  and 
between  level  and  station  parameters  is  important, 
as  SNMAP  and  SFLIST  call  these  subroutines. 


the  distinction 
P r o g r ams  such 
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TYPE 

DEFINE 

COMPUTE 

CONDITIONS 

STATION  & LEVEL 

PC_DFLS 

PC_CMVS 

PC SLCD 

STATION 

PC_DF  ST 

PC_CMST 

PC—SSCD 

LEVEL 

PC_PFLV 

PCJCMLV 

PC_CMVR 

PC_SLCD 

All  of  the  DEFINE 

subroutines  will 

initialize 

the  c omp ute  flags 

CMPFLG . Any  parameter  which  cannot  be  identified  as  computable  by 
the  DEFINE  subroutine  called  will  be  set  to  FALSE.  When  the  COMPUTE 
subroutines  are  called,  any  non- computabl e parameter  will  be 
returned  with  the  missing  data  value.  This  is  a change  from 
earlier  versions  of  the  PC  subroutines.  Note  that,  if  PC — DFST  and 
PC_JDFLV  are  to  be  called  separately,  PC_PFLV  must  be  called  first. 

In  all  cases,  PC_SSTN  must  be  called  to  save  the  station  information 
before  any  COMPUTE  subroutine  is  called. 

The  routines  PC_FLVL  and  PC_INTP  are  also  available  for  general  use. 


ERROR  MESSAGES: 


[PC  +21] 
[PC  +20] 
[PC  - 1 ] 
[PC  - 2 ] 
[PC  - 3 ] 
[PC  - 4 ] 
[PC  - 5 ] 
[PC  -6] 
[PC  - 7 ] 
[PC  - 8 ] 
[PC  -9] 
[PC  -10] 
[PC  -11] 
[PC  -13] 
[PC  -19] 
[PC  -20] 
[PC  -21] 
[PC  -22] 
[PC  -23] 
[PC  -24] 
[PC  -26] 
[PC  -27] 
[PC  -28] 
[PC  -30] 


There  are  too  many  parameters  in  parameter  type  table. 

There  are  too  many  functions  in  table  for  internal  buffer. 
NPARM  is  invalid. 

I VERT  i s i nva lid. 

NLEV  is  invalid. 

PC IN IT  must  be  called. 

Invalid  number  of  output  parameters. 

PC_SSTN  must  be  called  first. 

Output  parameters  have  not  been  defined. 

Requested  level  number  is  out  of  range. 

Surface  data  requested  but  not  in  dataset. 

Only  surface  data  can  be  computed  when  I VERT  = 0. 

No  valid  data  at  station. 

Data  cannot  be  computed  for  output  vertical  coordinate. 

No  interpolations  can  be  done  since  PRES  is  not  computable. 
Function  table  cannot  be  opened. 

Error  opening  parameter  type  table. 

Invalid  index  in  PC__CCMP  . 

Data  to  compute  i sent  ropi c data  is  missing. 

Interpolation  PRES  is  not  between  two  input  levels. 
Isentropic  data  is  not  computable. 

Computation  of  THTA  does  not  converge. 

Input  PRES  of  0 is  invalid. 

I nva lid  index. 
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PC_CMLV 

PC_CMST 

PC_CMVR 

PC_CMVS 

PC_J)FLS 

PCJDFLV 

PC_J)FST 

PC_JFLVL 

PC IN  IT 

PC_INTP 

PC_SLCD 
PC_S  SCD 
PC_SSTN 
PC_STIM 


PC  Library  Ca 11s 

( levnum,  datain,  / outdat,  chrdat,  iret  ) 

( datain,  / outdat,  chrdat,  iret  ) 

( vlev,  ivcord,  datain,  / outdat,  chrdat,  iret  ) 

( vlev,  ivcord,  datain,  / outdat,  chrdat,  iret  ) 

( noutpm,  outprm,  chrflg,  cmpflg,  levflg,  ncomp,  iret  ) 

( n o u t pm , o u t p rm , chrflg,  cmp  fig,  n c omp  , iret  ) 

( noutpm,  outprm,  chrflg,  cmpflg,  ncomp,  iret  ) 

( vlev,  ivcord,  datain,  / rlev,  levell,  level2,  levtyp, 
iret  ) 

( ivert,  nparm,  parms,  / iret  ) 

( vlev,  adata,  bdata,  nparms,  intflg,  angflg,  / outdat, 
iret) 

( noutpm,  condtn,  / iret  ) 

( noutpm,  condtn,  / iret  ) 

( stid,  i snum,  slat,  slon,  selv,  ihhnrn,  nlev,  / iret  ) 

( i hhmm,  / iret  ) 
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17.1  PC_CMLV  - COMPUTE  STATION  AND  LEVEL  PARMS 


This  subroutine  computes  level  parameters  for  a particular 
data  set  level  specified  by  the  level  number.  Only  level  data  are 
computed.  The  output  parameters  must  be  defined  by  a call  to 
PC__PFLV  before  this  subroutine  is  called. 

PC—CMLV  ( LEVNUM,  DATAIN,  OUTDAT , CHRDAT , I RET  ) 

Input  parameters: 

LEVNUM  INTEGER  Level  number 

DATAIN  REAL  Station  data 

( NPARM , NLEV ) 

Output  parameters: 

OUTDAT  (NOUTPM)  REAL  Computed  real  data 

CHRDAT  (NOUTPM)  CHAR*  Computed  character  data 

IRET  INTEGER  Return  code 

0 = normal  return 
- 4 = PC_I NIT  not  called 
-6  - PC_SSTN  not  called 
-7  = output  parms  not  set 
-8  = invalid  level  number 
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17.2  PC_CMST  - COMPUTE  STATION  DATA 


This  subroutine  computes  station  parameters.  PC_DFST  must  be 
called  to  define  the  output  parameters  before  this  subroutine 
is  called. 

PC_CMST  ( DATAIN,  OUTDAT,  CHRDAT , I RET  ) 

Input  parameters: 

DATAIN  REAL  Station  data 

(NPARM,  NLEV) 

Output  parameters: 

OUTDAT  (NSPRM)  REAL 
CHRDAT  (NSPRM)  CHAR* 

I RET  INTEGER 


Computed  real  data 
Computed  character  data 
Return  code 

0 = normal  return 

-4  = PC IN IT  not  called 

-6  - PC SSTN  not  called 

-16  — no  stn  parameters  set 
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17.3  PC_CMVR  - COMPUTE  DATA  FOR  VERTICAL  LEVEL 


This  subroutine  computes  level  parameters  at  a given  vertical 
level  in  the  coordinate  system  specified  by  IVCORD.  If  VLEV 
is  not  in  the  data  set  the  data  will  be  interpolated.  The 
output  parameters  must  be  defined  by  a call  to  PC_JDFLV  before 
this  subroutine  is  called. 

PC_CMVR  ( VLEV,  IVCORD,  DATAIN,  OUTDAT , CHRDAT , I RET  ) 


Input  parameters: 

VLEV  REAL 

IVCORD  INTEGER 


DATAIN  REAL 

(NPARM.NLEV) 

Ou  t p u t par  ame  ters  : 

OUTDAT  (NOUTPM)  REAL 
CHRDAT  (NOUTPM)  CHAR* 

I RET  INTEGER 


Ve  rtical  level 

Vertical  coordinate  of  VLEV 

0 = NONE 

1 - PRES 

2 = THTA 

3 = HGHT 
Station  data 


Computed  real  data 
C omp uted  character  data 
Return  code 

0 = n o rma  1 return 

- 4 = PC I NIT  mu  st  be  called 

-6  = PC_SSTN  must  be  called 

- 7 = PC—DFLV  mu  st  be  called 
-10  = vert  cord  of  dset  is  0 
- 1 3 = no  c omp  for  ivcord 
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17.4  PC_CMVS  - COMPUTE  DATA  FOR  LEVEL  NUMBER 


This  subroutine  computes  level  and  station  data  at  a single 
vertical  level  specified  by  the  level  value  and  vertical 
coordinate.  If  the  vertical  level  is  not  in  the  data  set,  the 

data  will  be  interpolated.  PC DFLS  should  be  called  to  define 

the  output  parameters  before  this  subroutine  is  called. 

PC—CMVS  ( VLEV , IVCORD,  DATAIN,  OUTDAT , CHRDAT , I RET  ) 

Input  parameters: 

VLEV  REAL  Vertical  level 

IVCORD  INTEGER  Vertical  coordinate  of  VLEV 

0 - NONE 

1 = PRES 

2 - THTA 

3 - HGHT 

•DAT'AIN  REAL  Station  data 

( NPARM , NLEV  ) 

Output  parameters: 

OUTDAT  (NOUTPM)  REAL  Computed  real  data 

CHRDAT  (NOUTPM)  CHAR*  Computed  character  data 

IRET  INTEGER  Return  code 

0 » no rma  1 return 
- 4 = PC_I NIT  mu st  be  called 
- 6 - PC_S  STN  mu  st  be  called 
-7  - output  must  be  defined 
-10  - ivert  - 0;  vlev  <>  0 
- 1 3 = no  c omp  for  ivcord 
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17.5  PC_DFLS  - DEFINE  STATION  AND  LEVEL  PARMS 


This  subroutine  is  used  to  define  the  level  and  station  output 
parameters  which  will  be  returned  when  the  subroutine  PC_CMVS 

is  called.  PC IN IT  must  be  called  before  this  subroutine  is 

called.  CMPFLG  will  be  set  if  a parameter  is  computable.  CHRFLG 
and  LEVFLG  will  be  set  for  character  data  type  and  station  type 
par  ame  ters,  respectively. 

PC_JDFLS  ( NOUTPM , OUTPRM,  CHRFLG,  CMPFLG,  LEVFLG,  NCOMP , I RET  ) 


Input  parameters: 

NOUTPM  INTEGER  Number  of  output  parameters 

OUTPRM  (NOUTPM)  CHAR *4  Output  parameters 


Input  and  output  parameters: 
CHRFLG  (NOUTPM)  LOGICAL 
CMPFLG  (NOUTPM)  LOGICAL 
LEVFLG  (NOUTPM)  LOGICAL 
NCOMP  I NTEGER 

I RET  INTEGER 


Character  data  flag 
Computable  data  flag 
Level  parameter  flag 
Number  of  computable  parms 
Return  code 

0 «=  normal  completion 

-4  = PC IN IT  not  called 

-5  = invalid  # of  parameters 
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17.6  PC—DFLV  - DEFINE  COMPUTED  LEVEL  PARAMETERS 


This  subroutine  defines  the  output  level  parameters  which  will 
be  returned  when  either  PC_CMLV  or  PC_CMVR  is  called.  The 
output  values  will  be  computed  from  the  parameters  in  the 
data  set.  PC_INIT  must  be  called  before  PC_DFLV.  The  returned 
values  of  CMPFLG  indicate  whether  the  parameters  are  computable. 
NCQMP  is  the  number  of  computable  parameters  found  by  this 
subrout i ne . 

PC_DFLV  ( NOUTPM,  OUTPRM,  CHRFLG , CMPFLG,  NCOMP , I RET  ) 

Input  parameters: 

NOUTPM  INTEGER  Number  of  output  parameters 

OUTPRM  (NOUTPM)  CHAR *4  Output  parameters 

Output  parameters: 

CHRFLG  (NOUTPM)  LOGICAL  Character  data  flag 

CMPFLG  (NOUTPM)  LOGICAL  Computable  data  flag 

NCOMP  INTEGER  Number  of  computable  parms 

I RET  INTEGER  Return  code 

0 - n o rma  1 return 

- 4 - PC I NIT  not  called 

-5  - invalid  # of  parms 


17-10 


PARAMETER  CONVERSION  (PC)  LIBRARY 


17.7  PC_DFST  - DEFINE  COMPUTED  STATION  PARAMETERS 

This  subroutine  defines  the  station  parameters  to  be  returned  when 
PC—CMST  is  called.  PC_INIT  must  be  called  to  define  the  dataset 
parameters  before  this  subroutine  is  called.  This  subroutine 
should  only  be  used  in  programs  where  the  station  parameters 
will  be  accessed  separately  from  the  level  parameters.  CMPFLG 
indicates  whether  the  parameters  are  computable. 

The  current  station  parameters  are:  STID,  STNM,  SELV,  SLAT,  SLON , 

STIM  and  various  stability  indices. 

PC_J>FST  ( NOUTPM,  OUTPRM,  CHRFLG , CMPFLG,  NCOMP , IRET  ) 

Input  parameters: 

NOUTPM  INTEGER  Number  of  output  parameters 

OUTPRM  (NOUTPM)  CHARM  Output  parameter  names 

Output  parameters: 

CHRFLG  (NOUTPM)  LOGICAL  Character  type  flag 

CMPFLG  (NOUTPM)  LOGICAL  Computable  flag 

NCOMP  INTEGER  Number  of  computable  parms 

IRET  INTEGER  Return  code 

0 = normal  completion 

-4  = PC_I NIT  not  called 
-5  = invalid  NOUTPM 
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17.8  PC_JLVL  - FIND  LEVELS  IN  A COORDINATE  SYSTEM 


This  subroutine  finds  the  level  number  for  a vertical  level  in 
any  coordinate  system.  RLEV  returns  the  actual  vertical  level 
RLEV  will  equal  VLEV  unless  VLEV  is  0 or  -1  for  surface  or  top 
level,  respectively. 

PCJLVL  ( VLEV,  IVCORD,  DATAIN,  RLEV,  LEVEL  1 , LEVEL 2 , LEVTYP , 
I RET  ) 


Input  parameters: 

VLEV 

REAL 

Vertical  level 

IVCORD 

INTEGER 

Vertical  coordinate 

DATAIN 

REAL 

Station  data 

( NPARM , NLEV  ) 
Output  parameters: 

RLEV 

REAL 

Vertical  level 

LEVEL  1 

INTEGER 

Level  at  or  below  VLEV 

LEVEL  2 

INTEGER 

Upper  level  number 

LEVTYP 

INTEGER 

Level  type 

I RET 

INTEGER 

1 - data  at  levell 

2 - data  between  levels  1,2 

3 - data  bel  ow  1 owe  s t level 

4 - data  above  top  level 
Re  turn  code 

0 - normal  return 
-4  - PC_INIT  not  called 
-6  - PC_SSTN  not  called 
-9  * no  surface  data 
-10  - I VERT-0 , levl  < > 0 
-11  - no  valid  data 
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17.9  PC_I NIT  - INITIALIZE  PC  SUBROUTINES 


This  subroutine  initializes  the  parameter  conversion  software. 
Information  about  the  current  data  set  is  saved.  It  must  be  the 
first  PC  subroutine  called. 

PC_I NIT  ( IVERT,  NPARM,  PARMS , IRET  ) 

Input  parameters: 

IVERT  INTEGER  Vertical  coordinate  type 

0 » NONE 

1 - PRES 

2 = THTA 

3 = HGHT 


NPARM 

INTEGER 

Numbe  r 

of  par  ame  t e r s 

PARMS  (NPARM) 

CHARM 

Par  ame 

ter  names 

Output  parameters: 

IRET 

INTEGER 

Return 

code 

0 = 

no  rma 1 return 

-1  « 

i nva lid  NPARM 

-2  = 

invalid  IVERT 
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17.10  PC INTP  - INTERPOLATE  BETWEEN  TWO  LEVELS 


This  subroutine  interpolates  between  two  levels  of  data.  The 
data  are  interpolated  with  respect  to  the  log  of  the  pressure. 
Pressure  MUST  be  the  first  variable  in  the  input  data  arrays. 

If  errors  are  encountered  no  output  data  are  changed.  Therefore, 
data  should  be  set  to  RMISSD  before  calling  this  subroutine. 


NPARMS  , INTFLG,  ANGFLG , 


PC_INTP  ( VLEV,  ADATA,  BDATA , 
OUTDAT,  I RET  ) 

Input  parameters: 

VLEV 

ADATA  (NPARMS) 

BDATA  (NPARMS) 

NPARMS 

INTFLG  (NPARMS) 

ANGFLG  (NPARMS) 

Output  parameters: 

OUTDAT  (NPARMS)  REAL 
I RET  INTEGER 


Pressure  to  be  interpolated 
Data  at  first  level 
Data  at  second  level 
Size  of  data  arrays 
Interpolation  flags 
An gle  interpolation  flags 

Data  interpolated  to  VLEV 
Return  code 

0 - n o rma  1 return 
-24  - vlev  not  between  levels 
-28  - invalid  pressure 


REAL 

REAL 

REAL 

INTEGER 

LOGICAL 

LOGICAL 
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17.11  PC SLCD  - DEFINE  LEVEL  CONDITIONS 


This  subroutine  sets  conditions  for  level  parameters.  It  must 
be  called  after  the  level  parameters  have  been  defined  using 
PC—DFLV.  No  checks  are  made  to  verify  that  the  conditions  are 
valid.  This  subroutine  may  also  be  used  to  set  both  level  and 
station  conditions  for  parameters  defined  by  calling  PC_J3FLS . 

PC_SLCD  ( NOUTPM,  CONDTN , I RET  ) 

Input  parameters: 

NOUTPM  INTEGER  Number  of  output  parameters 

CONDTN  (NOUTPM)  CHAR*  Conditions 

Output  parameters: 

I RET  INTEGER 


Return  code 

0 = normal  return 
- 1 5 = NOUTPM  incorrect 
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17.12  PC_S SCD  - DEFINE  STATION  CONDITIONS 


This  subroutine  sets  conditions  for  station  parameters.  It  must 
be  called  after  the  station  parameters  have  been  defined  using 
PC_J)FST.  No  checks  are  made  to  verify  that  the  conditions  are 
valid. 

PC_S  SCD  ( NOUTPM,  CONDTN , I RET  ) 

Input  parameters: 

NOUTPM  INTEGER  Number  of  output  parameters 

CONDTN  (NOUTPM)  CHAR*  Conditions 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
- 1 5 - NOUTPM  incorrect 
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17.13  PC_SSTN  - DEFINE  STATION  INFORMATION 


This  subroutine  saves  the  station  information  required  for  the  PC 
package . 


PC_S  STN  ( ST ID, 

I SNUM,  SLAT, 

SLON,  SELV,  IHHMM,  NLEV, 

IRET  ) 

Input  parameters: 

STID 

CHAR*  4 

Station  ident i f 1 er 

I SNUM 

INTEGER 

Station  numbe  r 

SLAT 

REAL 

Station  latitude 

SLON 

REAL 

Station  longitude 

SELV 

REAL 

Station  elevation 

IHHMM 

INTEGER 

Station  hour  and  mi 

nu  t e 

NLEV 

INTEGER 

Number  of  vertical 

levels 

Output  parameters 
I RET 

INTEGER 

Return  code 

0 = n o rma  1 return 
-3  = invalid  NLEV 
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17.14  PC_STIM  - SET  DATE/TIME 

This  subroutine  saves  the  nominal  time  for  the 
PC__STIM  ( IHHMM,  IRET  ) 

Input  parameters: 

IHHMM  INTEGER  Report  hour 

Output  par  ame  t e r s : 

I RET  INTEGER  Return  code 

0 - normal 


station  report. 


and  minute 


return 
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PD_DDEN  DDEN  from  PRES,  TMPC 

PD__DRCT  DRCT  from  UX,  VX 

PD_JWPT  EWPT  from  MIXR,  PRES 

PD_KNMS  SPED  from  SKNT 

PD_MIXR  MIXR  from  EWPC,  PRES 

PD_MSKN  SKNT  from  SPED 

PD_jlELH  RELH  from  TMPC,  EWPC 

PD_RHDP  EWPC  from  TMPC,  RELH 

PD_SDUV  Speed/direction  to  u/v 

PD_SPED  SPED  from  UWND,  VWND 

PD_THTA  THTA  from  TMPC,  PRES 

PD_THTE  THTE  from  PRES,  TMPC,  LWPC 

PD_TMCF  TMPF  from  TMPC 

PD_TMCK  TMPK  from  TMPC 

PD_TMFC  TMPC  from  TMPF 

PD_TMFK  TMPK  from  TMPF 

PD_TMKC  TMPC  from  TMPK 

PD_TMKF  TMPF  from  TMPK 

PD_TMPK  TMPK  from  PRES,  THTA 

PD_TVRK  TVRK  from  TMPC,  DWPC,  PRES 

PD_UVSD  U/V  to  speed/direction 
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Parameter  Array  (PD)  Library  Summary 


This  parameter  library  contains  subroutines  to  compute 
meteorological  parameters  for  arrays  of  data.  These  subroutines 
are  used  by  the  grid  diagnostics  package  to  calculate  parameters. 
They  may  also  be  called  directly  by  application  programs,  provided 
that  the  progr  amine  r is  careful  to  use  the  subsetting  capabilities 
properly.  In  each  subroutine,  SUBFLG  is  a logical  array.  At  each 
point,  if  SUBFLG  is  true,  the  calculation  will  be  made;  if  it  is 
false,  no  calculation  will  be  done. 

Note  that  this  library  is  derived  from  the  PR  library.  Therefore, 
changes  made  in  either  library  should  also  be  made  in  the  other. 


The  following  constants  are  used  in  the  computations: 

RKAPPA  = Poisson’s  constant  =2/7 

G = Gravitational  constant  = 9.80616  m/sec/sec 

GAMMA  = Standard  atmospheric  lapse  rate  = 6.5  K/km 

RDGAS  = Gas  constant  for  dry  air  - 287.04  J/K/kg 

Many  of  the  conversion  algorithms  are  taken  from: 

Bolton,  D.  , 1980:  The  computation  of  equivalent  potential 

temperature.  MONTHLY  WEATHER  REVIEW,  108,  pp.  1046-1053. 

University  of  Wisconsin:  Green  sheet. 

Wallace,  J .M. , P.V.  Hobbs,  1977:  ATMOSPHERIC  SCIENCE,  Academic 
Press  , 467  pp . 
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PD_JDDEN 

PD_DRCT 

PD_JWPT 

PD_JCNMS 

PD_MIXR 

PD_MSKN 

PD_RELH 

PD__RHDP 

PD_SDUV 

PD_SPED 

PD_THTA 

PD_THTE 

PD_TMCF 

PD_TMCK 

PD_TMFC 

PD_TMFK 

PD_TMKC 

PD_TMKF 

PD_TMPK 

PD_TVRK 

PD_UVSD 


PD  Library  Calls 

( pres,  tmpC,  npt,  subflg,  / dden,  iret  ) 

( uwn d , vwn d,  npt,  subflg,  / drct,  iret  ) 

( rmi x , pres,  npt,  subflg,  / dwpc,  iret  ) 

( sknt,  npt,  subflg,  / sped,  iret  ) 

( dwpc,  pres,  npt,  subflg,  / rmix,  iret  ) 

( sped,  npt,  subflg,  / sknt,  iret  ) 

( tmpc,  dwpc,  npt,  subflg,  / relh,  iret  ) 

( tmpC,  relh,  npt,  subflg.  / dwpc,  iret  ) 

( sped,  drct,  npt,  subflg,  uwnd , vwnd , iret  ) 

( uwnd,  vwnd,  npt,  subflg,  / sped,  iret  ) 

( tmp  c,  pres,  npt,  subflg,  / thta,  iret  ) 

( pres,  tmpc,  dwpc,  npt,  subflg,  / thte,  iret  ) 
( tmpc,  npt,  subflg,  / tmpf,  iret  ) 

( tmpc,  npt,  subflg,  / tmpk,  iret  ) 

( tmpf,  npt,  subflg,  / tmpc,  iret  ) 

( tmpf,  npt,  subflg,  / tmpk,  iret  ) 

( tmpk,  npt,  subflg,  / tmpc,  iret  ) 

( tmpk,  npt,  subflg,  / tmpf,  iret  ) 

( prgrd,  thgrd,  npt,  subflg,  / tmpk,  iret  ) 

( tmpk,  rmix,  npt,  subflg,  / tvrk,  iret  ) 

( uwnd,  vwnd,  npt,  subflg,  / sped,  drct,  iret  ) 
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18.1  PD_DDEN  - DDEN  FROM  PRES,  TMPC 


This  subroutine  computes  DDEN  from  PRES,  TMPC, 
equa  tion  is  used: 

DDEN  - 100  * PRES  / ( RDGAS  * TMPK  ) 

100  - conversion  f rom  mi  1 1 i bar s 

PD_J)DEN  ( PRES,  TMPC,  NPT , SUBFLG , DDEN,  I RET 

Input  parameters: 

PRES  (NPT)  REAL 

TMPC  (NPT)  REAL 

NPT  INTEGER 

SUBFLG  (NPT)  LOGICAL 

Output  parameters: 

DDEN  (NPT)  REAL 

I RET  INTEGER 


Pressure  in 
T emp  erature 
Number  of  po 
Subset  flag 


Dry  air  dens 
Return  code 
0 * n o rma  1 


Th  e foil owi  ng 

to  pascals 

) 

mi  11 i ba  r s 
in  Celsius 
int  s 

ity  in  kg/(m**3) 
return 
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18.2  PD_JDRCT  - DRCT  FROM  UX , VX 


This  subroutine  computes  DRCT  from  IWND  and  VWND.  The  following 
equa  tion  is  used: 

DRCT  = ATAN2  ( -UWND,  -VWND  ) * RTD 
PD_PRCT  ( UWND,  VWND,  NPT , SUBFLG , DRCT,  I RET  ) 


Input  parameters: 
UWND  (NPT) 
VWND  (NPT) 

NPT 

SUBFLG  (NPT) 


REAL 

REAL 

INTEGER 

LOGICAL 


U c omp onent 
V c omp  onent 
N umb er  of  points 
Subs  e t flag 


Ou  t pu  t par  ame  t e r s : 

DRCT  (NPT)  REAL 

I RET  INTEGER 


Wind  direction 
Return  code 

0 = normal  return 
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18.3  PD_J3WPT  - EWPT  FROM  MIXR , PRES 


This  subroutine  computes  DWPC  from  MIXR  and  PRES, 
equa tion  is  used: 


The  following 


DWPC  - ALOG  ( E / 6.112) 


243.5  / ( 17.67 


ALOG  ( E / 6.112)  ) 


E - vapor  pressure 

- e / C 1.001  + ( (PRES  - 100.)  / 900.  ) * .0034  ) 

e = ( PRES  * MIXR  ) / ( .62197  + MIXR  ) 


Bolton. 


This  subroutine  also  computes  TMPC  from  MIXS  and  PRES. 
PD_MIXR  ( RMIX,  PRES,  NPT , SUBFLG , DWPC,  IRET  ) 


Input  parameters: 

RMIX  (NPT)  REAL 

PRES  (NPT)  REAL 

NPT  INTEGER 

SUBFLG  (NPT)  LOGICAL 


Output  parameters: 

EWPC  (NPT)  REAL 

IRET  INTEGER 


Mixing  ratio  in  g/kg 
Pressure  in  millibars 
N umb er  of  points 
Subset  flag 


Dewpoint  in  Celsius 
Return  code 

0 « normal  return 
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18.4  PD_JCNMS  - SPED  FROM  SKNT 

This  subroutine  computes  SPED  from  SKNT.  The  following  equation  is 
used: 


SPED  - SKNT  / 1.9438 


PD__KNMS  ( SKNT, 

NPT,  SUBFLG, 

SPED,  I RET  ) 

Input  parameters: 

SKNT  (NPT ) 

REAL 

Speed  in  knots 

NPT 

INTEGER 

Number  of  points 

SUBFLG  (NPT) 

LOGICAL 

Subs  e t flag 

Output  parameters 
SPED  (NPT) 

REAL 

Speed  in  meters/second 

I RET 

INTEGER 

Return  code 

0 - normal  return 
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18.5  PD_JdIXR  - MIXR  FROM  DWPC,  PRES 


This  subroutine  computes  MIXR  from  DWPC  and  PRES.  The  following 
equation  is  used: 

MIXR  - .62197  * ( e / ( PRES  - e ) ) * 1000. 
e = VAPR  * c o r r 

corr  = (1.001  + ( ( PRES  - 100.  ) / 900.  ) * .0034) 

This  function  can  also  be  used  for  the  following  computations: 
MIXS  from  TMPC  and  PRES 
SMXR  from  EWPC  and  PALT 
SMXS  from  TMPC  and  PALT 


I PD_MIXR  ( DWPC,  PRES,  NPT , SUBFLG , RMIX,  I RET  ) 


Input  parameters: 

DWPC  (NPT)  REAL 

PRES  (NPT)  REAL 

NPT  INTEGER 

SUBFLG  (NPT)  LOGICAL 

Output  parameters: 

RMIX  (NPT)  REAL 

I RET  INTEGER 


Dewpoint  in  Celsius 
Pressure  in  millibars 
N umb er  of  points 
Subset  flag 


Mixing  ratio  in  g/kg 
Return  code 

0 = n o rma  1 return 
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18.6  PD_MSKN  - SKNT  FRCM  SPED 


This  subroutine  computes  SKNT  from  SPED.  The  following  equation 
is  used: 

SKNT  = SPED  * 1.9438 
PD_MSKN  ( SPED,  NPT , SUBFLG , SKNT,  I RET  ) 


Input  par  ame  ters  : 

SPED  (NPT)  REAL 

NPT  INTEGER 

SUBFLG  (NPT)  LOGICAL 


Speed  in  me t e r s / s e c ond 
Number  of  points 
Subs  e t flag 


Output  parameters: 

SKNT  (NPT)  REAL 

I RET  INTEGER 


Speed  in  knots 
Return  code 

0 - normal  return 
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18.7  PD-JRELH  - RELH  FROM  TMPC,  EWPC 


This  subroutine  computes  RELH  from  TMPC  and  EWPC.  The  following 
equation  i s us ed : 

RELH  - VAPR  / VAPS  * 100 

VAPR  - vapor  pressure 

- PR_VAPR  ( DWPC  ) 

VAP S *■  saturation  vapor  pressure 
= PR_VAPR  ( TMPC  ) 

PD_JIELH  ( TMPC,  EWPC,  NPT,  SUBFLG , RELH,  I RET  ) 

Input  parameters: 

TMPC  (NPT) 

DWPC  (NPT) 

NPT 

SUBFLG  (NPT) 

Output  parameters: 

RELH  (NPT) 

I RET 

0 — n o rma  1 return 


REAL 

REAL 

INTEGER 

LOGICAL 


Temperature  in  Celsius 
Dewpoint  in  Celsius 
Number  of  points 
Subs  e t flag 


REAL 

INTEGER 


Relative  humidity  in  percent 
Return  code 
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18.8  PD_JtHDP  - EWPC  FROM  TMPC,  RELH 


This  subroutine  computes  EWPC  from  TMPC  and  RELH.  The  following 
equation  is  used: 

EWPC  - 243.5  * LN  (6.112)  - 243.5  * LN  (VAPR)  / 

( LN  (VAPR)  - LN  (6.112)  - 17.67  ) 

VAPR  - VAPS  * RELH 

VAP S = saturation  vapor  pressure 
- PR_VAPR  ( TMPC  ) 

Note:  If  EWPC  is  less  than  -190  degrees  C,  it  is  treated  as 

mi  ssing  data. 

PD__RHDP  ( TMPC,  RELH,  NPT,  SUBFLG , EWPC , IRET  ) 


Input  parameters: 

TMPC  (NPT)  REAL 

RELH  (NPT)  REAL 

NPT  INTEGER 

SUBFLG  (NPT)  LOGICAL 

Ou  t pu  t par  ame  t e r s : 

DWPC  (NPT)  REAL 

I RET  INTEGER 


T emp erature  in  Celsius 
Relative  humidity  in  percent 
Number  of  points 
Subs  e t flag 

Dewpoint  in  Celsius 
Return  code 

0 - normal  return 
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18.9  PD_SDUV  - SPEED/DIRECTION  TO  U/V 


This  subroutine  computes  UWND  and  VWND  from  SPED  and  DRCT  f 
array.  The  following  equations  are  used: 


UWND  «=  -SIN 
VWND  - -COS 

PD_SDUV  ( SPED,  DRCT,  NPT , 

Input  parameters: 


SPED  (NPT) 

REAL 

DRCT  (NPT) 

REAL 

NPT 

INTEGER 

SUBFLG  (NPT) 

LOGICAL 

Ou t pu t par ame  t e r s : 

UVND  (NPT) 

REAL 

VWND  (NPT) 

REAL 

I RET 

INTEGER 

( DRCT  ) * SPED 
( DRCT  ) * SPED 

SUBFLG , UWND,  VWND,  I RET  ) 


Wind  speed 

Wind  direction  in  degrees 
Number  of  points 
Sub  set  f 1 ag 

U c omp  o n e n t 
V component 
Return  code 

0 » normal  return 


r an 
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18.10  PD SPED  - SPED  FROM  UWND,  VWND 


This  subroutine  computes  SPED  from  UWND  and  VWND.  The  following 
equa  tion  is  used: 

SPED  = SQRT  ( (UWND* *2)  + (VWND* *2)  ) 

PD_SPED  ( UWND,  VWND,  NPT,  SUBFLG,  SPED,  I RET  ) 

Input  parameters: 

UWND  (NPT) 

VWND  (NPT) 

NPT 

SUBFLG  (NPT) 

Ou  t p u t par  ame  t e r s : 

SPED  (NPT) 

I RET 

0 - normal  return 


REAL 

REAL 

INTEGER 

LOGICAL 


U component 
V component 
Number  of  points 
Subs  e t flag 


REAL 

INTEGER 


Wind  speed 
Return  code 
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18.11  PD_THTA  - THTA  FROM  TMPC,  PRES 


This  subroutine  computes  THTA  from  TMPC  and  PRES  using  Poisson’s 
equation: 

THTA  = TMPK  * ( 1000  / PRES  ) **  RKAPPA 

It  can  also  be  used  to  compute  STHA  from  TMPC  and  PALT  THTV  from 
TVRC  and  PRES,  and  THTV  from  TVRC  and  PALT. 

PD_THTA  ( TMPC,  PRES,  NPT , SUBFLG , THTA,  IRET  ) 

Input  parameters: 

TMPC  (NPT) 

PRES  (NPT) 

NPT 

SUBFLG  (NPT) 

Output  parameters: 

THTA  (NPT) 

IRET 

0 = normal  return 


REAL 

REAL 

INTEGER 

LOGICAL 


Temperature  in  Celsius 
Pressure  in  millibars 
Number  of  points 
Subset  flag 


REAL 

INTEGER 


Potential  t emp erature  in  K 
Return  code 
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18.12  PD_THTE  - THTE  FROM  PRES,  TMPC,  EWPC 


This  subroutine  computes  THTE  from  PRES,  TMPC,  EWPC.  In  the 
calculation,  MIXR  depends  on  PRES  and  EJWPC;  TLCL  depends  on 
TMPC  and  EWPC.  The  following  equation  is  used: 


THTE 


THTAM  * EXP  [ ( 3.37 6 /TLCL  - .00254  ) * 

( MIXR  * ( 1 + . 81  * . 001 *MIXR  ) 


] 


THTAM  = potential  t emp  erature  of  moist  air 
- TMPK  * (1000  / PRES)  **  E 
E - RKAPPA  * ( 1 - ( .28*. 001*  MIXR  ) ) 

PD_THTE  ( PRES,  TMPC,  EWPC,  NPT , SUBFLG , THTE,  I RET  ) 


Input  parameters: 

Pressure  in 

PRES  (NPT) 

REAL 

TMPC  (NPT) 

REAL 

T emp  erature 

EWPC  (NPT) 

REAL 

D ewp  o i n t in 

NPT 

INTEGER 

Number  of  p 

SUBFLG  (NPT) 

LOGICAL 

Subset  flag 

Output  par  ame  t e r s : 

THTE  (NPT) 

REAL 

Equ l va 1 en  t 

I RET 

INTEGER 

Return  code 
0 = norma 

mi  1 1 i b a r s 
in  Celsius 
Celsius 
o i n t s 


potential  t 
1 return 


emp 


in  K 
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18.13  PD_TMCF  - TMPF  FROM  TMPC 


This  subroutine  computes  TMPF  from  TMPC.  The  following  equation 
i s u s e d : 

TMPF  - ( TMPC  * 9 / 5 ) + 32 
PD_TMCF  ( TMPC,  NPT , SUBFLG , TMPF,  I RET  ) 

Input  parameters: 

TMPC  (NPT)  REAL  Temperature  in  Celsius 

NPT  INTEGER  Number  of  points 

SUBFLG  (NPT ) LOGICAL  Subset  flag 

Output  parameters: 

TMPF  (NPT)  REAL  Temperature  in  Fahrenheit 

IRET  INTEGER  Return  code 

0 = normal  return 
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18.14  PD_TMCK  - TMPK  FROM  TMPC 

This  subroutine  computes  TMPK  from  TMPC.  The  following  equat 
is  used: 


TMPK  = TMPC  + 273.16 

PD_TMCK  ( TMPC,  NPT , SUBFLG , TMPK,  I RET  ) 


Input  parameters: 

TMPC  (NPT)  REAL 

NPT  INTEGER 

SUBFLG  (NPT)  LOGICAL 


T emp erature  in  Celsius 
Number  of  points 
Subs  e t flag 


Ou  t pu  t par  ame  t e r s : 

TMPK  (NPT)  REAL 

I RET  INTEGER 


Temperature  in  Kelvin 
Return  code 

0 = normal  return 


on 
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18.15  PD_TMFC  - TMPC  FROM  TMPF 


Th  is  subroutine  c omp  u t e s TMPC  f r oin  TMPF  . Th  e foil  owi  ng  equation  is 
used: 


TMPC  = ( TMPF  - 32  ) * 5 / 9 
PD_TMFC  ( TMPF,  NPT , SUBFLG , TMPC,  I RET  ) 

Input  parameters: 

TMPF  (NPT)  REAL  Temperature  in  Fahrenheit 

NPT  INTEGER  Number  of  points 

SUBFLG  (NPT)  LOGICAL  Subset  flag 

Output  parameters: 

TMPC  (NPT)  REAL  Temperature  in  Celsius 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
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18.16  PD_TMFK  - TMPK  FRCM  TMPF 


This  subroutine  computes  TMPK  from  TMPF.  The  following  equation 
is  used: 

TMPK  - ( TMPF  - 32  ) * 5 / 9 + 273.16 
PD_TMFK  ( TMPF,  NPT , SUBFLG , TMPK,  I RET  ) 

Input  parameters: 

TMPF  (NPT)  REAL  Temperature  in  Fahrenheit 

NPT  INTEGER  Number  of  points 

SUBFLG  (NPT)  LOGICAL  Subset  flag 

Output  parameters: 

TMPK  (NPT)  REAL  Temperature  in  Kelvin 

IRET  INTEGER  Return  code 

0 = normal  return 
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18.17  PD_TMKC  - TMPC  FROM  TMPK 


This  subroutine  computes  TMPC  from  TMPK.  The  following  equation 
i s us ed : 

TMPC  - TMPK  - 273 . 16 

PD_TMKC  ( TMPK,  NPT,  SUBFLG , TMPC,  I RET  ) 

Input  parameters: 

TMPK  (NPT)  REAL  Temperature  in  Kelvin 

NPT  INTEGER  Number  of  points 

SUBFLG  (NPT)  LOGICAL  Subset  flag 

Output  parameters: 

TMPC  (NPT)  REAL  Temperature  in  Celsius 

I RET  INTEGER  Return  code 

0 - n o rma  1 return 
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18.18  PD_TMKF  - TMPF  FRCM  TMPK 

This  subroutine  computes  TMPF  from  TMPK.  The  following  equation 
is  used: 

TMPF  = ( ( TMPK  - 273.16  ) * 9 / 5 ) + 32 

PD_TMKF  ( TMPK,  NPT , SUBFLG , TMPF,  I RET  ) 

Input  parameters: 

TMPK  (NPT)  REAL  Temperature  in  Kelvin 

NPT  INTEGER  Number  of  points 

SUBFLG  (NPT)  LOGICAL  Subset  flag 

Output  parameters: 

TMPF  (NPT)  REAL  Temperature  in  Fahrenheit 

IRET  INTEGER  Return  code 

0 — normal  return 
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18.19  PD_TMPK  - TMPK  FROM  PRES,  THTA 


This  subroutine  computes  TMPK  from  pressure  and  potential 
temperature.  The  following  equation  is  used: 

TMPK  = THTA  * ( P / 1000  ) **  RKAPPA 


PD_TMPK  ( PRGRD , 

THGRD,  NPT, 

SUBFLG,  TMPK,  I RET  ) 

Input  parameters: 

PRGRD  (NPT) 

REAL 

Pressure  in  mb 

THGRD  (NPT) 

REAL 

THETA  in  Kelvin 

NPT 

INTEGER 

Number  of  points 

SUBFLG  (NPT) 

LOGICAL 

Subset  flag 

Output  parameters: 

TMPK  (NPT) 

REAL 

Temperature  in  Kelvin 

I RET 

INTEGER 

Re  turn  code 

0 = n o rma  1 return 

18-22 


PARAMETER  ARRAY  (PD)  LIBRARY 


18.20  PD_TVRK  - TVRK  FROM  TMPC,  DWPC , PRES 

This  subroutine  computes  TVRK  from  TMPK,  RMIX.  The  following 
equa t ion  is  used: 

TVRK  = TMPK  * (1  + .001  * MIXR  / .62197)  / (1  + .001  * MIXR) 

Note  that  this  subroutine  requires  different  inputs  than  the 
function  PR_TVRK. 


PD_TVRK  ( TMPK , 

RMIX,  NPT, 

SUBFLG,  TVRK,  I RET  ) 

Input  parameters: 

TMPK  (NPT ) 

REAL 

Temperature  in  Kelvin 

RMIX  (NPT) 

REAL 

Mixing  ratio  in  g/g 

NPT 

INTEGER 

Number  of  points 

SUBFLG  (NPT) 

LOGICAL 

Subset  flag 

Output  parameters 

: 

TVRK  (NPT) 

REAL 

Virtual  temp  in  Kelvin 

I RET 

INTEGER 

Re  turn  code 

0 = n o rma  1 return 
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18.21  PD_UVSD  - U/V  TO  SPEED/DIRECTION 


This  subroutine  computes  SPED  and  DRCT  from  UWND  and  VWND. 
following  equations  are  used: 

SPED  - SQRT  ( (UWND* *2)  + (VWND* *2)  ) 

DRCT  - ATAN2  ( -UWND,  -VWND  ) * RTD 

The  input  and  output  arrays  may  be  the  same. 

PD_UVSD  ( UWND,  VWND,  NPT , SUBFLG , SPED,  DRCT,  I RET  ) 

Input  parameters: 

UWND  (NPT) 

VWND  (NPT) 

NPT 

SUBFLG  (NPT) 

Output  parameters: 

SPED  (NPT) 

DRCT  (NPT) 

I RET 

0 = n o rma 1 return 


REAL 

U component 

REAL 

V component 

INTEGER 

Numbe  r 

of  points 

LOGICAL 

Subset 

flag 

REAL 

Wind  speed 

REAL 

Wind  direction  in 

INTEGER 

Re  turn  code 

The 
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PR 6 SYM 

WvMviO 

f r om 

W604 

PR_ALTI 

ALT  I 

f r om 

ALTM 

PR_ALTM 

ALTM 

f r om 

ALT  I 

PICJM.TP 

ALT  I 

f r om 

PRES  , 

SELV 

PR_AMSL 

SALT 

f r om 

ALTM 

PRjCLCT 

CLCT 

f r om 

CLCL , 

CLCM, 

CLCII 

PR_CLCX 

CLCX 

f r om 

COMX 

PR_CLHX 

CLHX 

f r om 

COMX 

PILJCLOA 

XCLO 

f r om 

CLCX 

PR_CMBC 

CMBC 

f r om 

CLCL, 

CLCM, 

CLCH 

PR_COMH 

COMH 

f r om 

CHC1  , 

CHC2  , 

CHC3 

PFL_COML 

CCML 

f r om 

CHC1  , 

CHC2  , 

CHC3 

PR_COMM 

COMM 

f r om 

CHC1  , 

CHC2  , 

CHC3 

PR_COMT 

CQMT 

f r om 

CCML, 

COMM, 

COMH 

PFL_COMX 

COMX 

f r om 

CLHX, 

CLCX 

PK-D100 

Divide  by 

100 

PR_DDEN 

DDEN 

f r om 

PRES  , 

TMPC 

PR_PDEP 

DPDX 

f r om 

TMPX , 

DWPX 

PRJDRCT 

DRCT 

f r om 

ux,  vx 

PICJ7VDP 

EWPX 

f r om 

TMPX, 

DPDX 

PRJAVPT 

DvVPT 

f r om 

MIXR , 

PRES 

PRJIGFM 

HGHT 

f r om 

HGFT 

PR__HGF  S 

HGML 

f r om 

HGFT 

P1CJIGKM 

HGHT 

f r om 

HGTK 

PRJIGMD 

HGTD 

f r om 

HGHT 

PR_JIGMF 

HGFT 

f r om 

HGHT 

PR_HGMK 

HGTK 

f r om 

HGHT 

PICJ1GSF 

HGFT 

f r om 

HGML 

PR I iYMM 

MM  fr 

om  INCHES/ 

100 

PRJCNMS 

SPED 

f r om 

SKNT 

PRJLATI 

LAT I 

f r om 

RANG, 

AZIM 

PR LHVP 

LHVP 

f r om 

TMPC 

PRJLONI 

LON  I 

f r om 

RANG, 

AZIM 

PR_LTMP 

Lifted  parcel 

PRJM100 

Mu  ltiply  by  100 
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PRJVIHGT  Compute  MHGT 

PR^MIXR  MIXR  from  DWPC,  PRES 

PR-MMIN  INCHES/100  from  MM 

PRJVlSKN  SKNT  from  SPED 

PR_NSYM  WB  from  WNUM 

PR PALT  PALT  from  ALTM,  SELV 

PR_PKDD  DRCT  from  PS  PD 

PR_J*KSS  SPED  from  PSPD 

PR PLCL  PLCL  from  TMPC,  PRES,  TLCL 

PR_J?MSL  PMSL  from  PRES,  TMPC,  DWPC,  SELV 

PR PRES  PRES  from  TMPC,  THTA 

PR PSPD  PSPD  from  DRCT,  SPED 

PR_RELH  RELH  from  TMPC,  DWPC 

PR RHDP  DWPC  from  TMPC,  RELH 

PRJRWSH  RWSH  from  Asheville  code 

PR SAL  I SAL  I from  ALT  I 

PIL_SCLH  Compute  scale  height 

PR SPED  SPED  from  TJWND,  VWND 

PR STDZ  STDZ  from  PRES,  HGHT 

PR_THTA  THTA  from  TMPC,  PRES 

PR_THTE  THTE  from  PRES,  TMPC,  DWPC 

PR_TLCL  TLCL  from  TMPC,  DWPC 

PR_TMCF  TMPF  from  TMPC 

PR_TMCK  TMPK  from  TMPC 

PR_TMFC  TMPC  from  TMPF 

PRJMFK  TMPK  from  TMPF 

PRJIMKC  TMPC  from  TMPK 

PR_TMKF  TMPF  from  TMPK 

PR__TMPK  TMPK  from  PRES,  THTA 

PR_TMST  Parcel  temperature 

PR_TVRK  TVRK  from  TMPC,  DWPC,  PRES 

PR^JJWND  TJWND  from  SPED,  DRCT 

PR__VAPR  VAPR  from  DVPC 

PR__VWND  VWND  from  SPED,  DRCT 

PR^JACMP  Wind  component 

PR_WNML  Normal  wind  component 

PR_ZALT  ZALT  from  ALTM,  PRES 
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Parameter  (PR)  Library  Summary 


The  parameter  library  contains  functions  to  compute  meteorological 
parameters.  These  functions  are  used  by  the  PC  subroutine  package 
to  convert  parameters  and  may  also  be  called  directly  by  application 
programs  . 

Th e library  wa s designed  to  provide  easy  access  to  standard 
meteorological  conversions.  Any  desired  change  to  a parameter 
conversion  function,  either  to  add  precision  or  make  a correction, 
which  is  made  to  a PR  function  will  then  be  effective  throughout 
GEMPAK  when  the  executable  code  is  relinked. 


The  following  constants  are  used  in  the  computations: 

RKAP  PA  - Poisson’s  constant  = 2/7 

G - Gravitational  constant  = 9.80616  m/sec/sec 

GAtoMA  - Standard  atmospheric  lapse  rate  = 6.5  K/km 

RDGAS  - Gas  constant  for  dry  air  = 287.04  J/K/kg 

Many  of  the  conversion  algorithms  are  taken  from: 

Bolton,  D.  , 1980:  The  computation  of  equivalent  potential 

temperature.  MONTHLY  WEATHER  REVIEW,  108,  pp . 1046-1053. 

University  of  Wisconsin:  Green  sheet. 

Wallace,  J .M. , P.V.  Hobbs,  1977:  ATMOSPHERIC  SCIENCE,  Academic 
Press,  467  pp . 
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PR 

Li 

PR 6 SYM 

( w6  04  ) 

PR^ALTI 

( a 1 tm  ) 

PR^ALTM 

( a 1 1 i ) 

PICJ^LTP 

( pres,  selv  ) 

PR^AMSL 

( pms  1 ) 

PILJCLCT 

( clcl,  cl  cm,  clch 

) 

PICXLCX 

( c omx  ) 

PRJCLHX 

( c omx  ) 

PICJCLOA 

( c 1 c x ) 

PR^JCMBC 

( clcl,  cl  cm,  clch 

) 

PR_COMH 

( chc 1 , chc2 , chc3 

) 

PICjCOML 

( chc 1 , chc2 , chc3 

) 

PIUCOMM 

( chc 1 , chc2 , chc3 

) 

PR_COMT 

( coml  , comm,  comh 

) 

PR^COMX 

( c lhx , c 1 cx  ) 

PR^DIOO 

( hvalue  ) 

PR_DDEN 

( pres,  tmp  c ) 

PRJ3DEP 

( tmpx,  dwpx  ) 

PR_DRCT 

( ux , vx  ) 

PR_DWDP 

( tmpx,  dpdx  ) 

PR.JJVPT 

( rmi  x , pres  ) 

PRJHGFM 

C hgft  ) 

PIL_HGFS 

( hgft  ) 

PR_HGKM 

( value  ) 

PR__HGMD 

( hght  ) 

ary  Calls 
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PR_HGMF 

( hgh  t 

) 

PRW_HGMK 

( value 

) 

PR_HGSF 

( hgml 

) 

PR I NMVl 

( x i nch 

) 

PR_JCNMS 

( skn  t 

) 

PR_LATI 

( slat, 

s 1 on 

PR_LHVP 

( tmp  c 

) 

PRJ.ONI 

( slat, 

s 1 on 

PR_LTMP 

( th t a , 

th  t e 

PR_M100 

( value 

) 

PRJdHGT 

( hb , pb , p t 

PR31IXR 

( dwp  c , 

pres 

PRJvMIN 

( xrni  lm  ) 

PR_MSKN 

( sped 

) 

PR_NSYM 

( wnum 

) 

PR PALT 

( a 1 tm. 

selv 

PRJPKDD 

( pspd 

) 

PILJ>KSS 

( pspd 

) 

PR PLCL 

( tmp  c , 

pres 

PRJPMSL 

( pres, 

tmpc 

PR PRES 

( tmpC  , 

t h t a 

PR PSPD 

( drct , 

sped 

PR_RELH 

( tmp  c , 

dwp  c 

PR_RHDP 

( tmpc  , 

r e 1 h 

PR__RWSH 

( i num 

) 

range  , azim,  selv  ) 

range,  azim,  selv  ) 
pres  ) 

scale  ) 

) 


) 

tlcl  ) 

dwp  c , selv  ) 

) 

) 

) 

) 
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PR_SALI 

( a 1 1 i 

) 

PR_SCLH 

( tb,  tt,  tdb,  tdt,  pb 

PR_SPED 

( uwnd  , 

vwnd  ) 

PR_STDZ 

( pres , 

hght  ) 

PR_THTA 

( tmpC  , 

pres  ) 

PR__THTE 

( pres, 

tmp  c , dwp  c ) 

PR_TLCL 

( tmp  c , 

dwpc  ) 

PR_TMCF 

( tmpc 

) 

PR_TMCK 

( tmp  c 

) 

PR_TMFC 

( tmp  f 

) 

PR_TMFK 

( tmpf 

) 

PR_TMKC 

( tmpk 

) 

PR_TMKF 

( tmpk 

) 

PR_TMPK 

( pres, 

th  t a ) 

PRJIMST 

( th t e , 

pres,  tguess  ) 

PR_TVRK 

( tmpc  , 

dwp  c , pres  ) 

PRJUWND 

( sped , 

d r c t ) 

PR_VAPR 

( dwp  c 

) 

PR_VWND 

( sped , 

d r c t ) 

PR_ZALT 

( a 1 tm, 

pres  ) 
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19.1  PR 6 SYM  - WAMO  FROM  W604 


This  function  converts  the  airways  code  W604  to  the  MMO 
weather  code,  YMMO,  which  is  used  to  plot  weather  symbols. 

PR_6SYM  ( W604  ) 


Input  pa  r ame  t e r s : 

W604  REAL 

Output  parameters: 

PR 6 SYM  REAL 


Airways  604  numeric  code 
Weather  symbol  number 
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19.2  PIOLLTI  - ALT  I FROM  ALTM 

This  function  computes  ALTI  from  ALTM.  The  following  equation  is 
used  : 

ALTI  = ALTM  * 29.921  / 1013.25 
PR^ALTI  ( ALTM  ) 

Input  parameters: 

ALIM  REAL  Altimeter  in  millibars 

Output  parameters: 

PR — ALTI  REAL  Altimeter  in  inches 
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19.3  PR_ALTM  - ALTM  FROM  ALT  I 

This  function  computes  ALTM  from  ALTI.  The  following  equation  is 
used: 

ALTM  - ALTI  * 1013.25  / 29.921 
PR_ALTM  ( ALTI  ) 

Input  parameters: 

ALTI  REAL  Altimeter  in  inches 

Output  parameters: 

PR^ALTM  REAL  Altimeter  in  millibars 
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19.4  PR^ALTP  - ALT I FROM  PRES,  SELV 

This  function  computes  ALTI  from  PRES  and  SELV.  The  following 
equationisused: 

ALTI  = PR_ALT I ( PRES  * ( 1 - ( SELK  * GAMUSD  /To  ) ) **  expo  ) 


SELK 

- SELV  / 1000 

To 

- US  Std.  Atmos,  sea  level  temp 
= 288 . 

in  Kelvin 

expo 

**  - GRAVTY  / ( GAMUSD  * RDGAS  ) 

* 1000 

Wallace  and  Hobbs 

PR^ALTP  ( PRES , SELV  ) 

Input  parameters: 

PRES  REAL 

SELV  REAL 

Output  parameters: 

PIOVLTP  REAL 


Station  pressure  in  millibars 
Station  elevation  in  meters 


Altimeter  in  inches 
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19.5  PR^AMSL  - SALT  FROM  ALTM 

This  function  computes  a standard  abbreviated  3-digit  display  of 
pressure  containing  the  tens  and  units  digits  and  the  first  digit 
after  the  decimal  point.  The  input  is  multiplied  by  10,  truncated 
and  the  original  thousand  and  hundred  digits  are  dropped.  The 
following  equation  is  used: 

AMSL  - NINT  ( AMOD  ( PMSL,  100  ) * 10  ) 

This  function  can  be  used  to  compute  SALT  from  ALTM,  and  SMSL  from 
PMSL. 

PR^AMSL  ( PMSL  ) 

Input  parameters: 

PMSL  REAL  Pressure  in  mb 

Output  parameters: 

PR_AMSL  REAL  Standard  abbreviated  pressure 


19-11 


PARAMETER  (PR)  LIBRARY 


19.6  P R__CLCT  - CLCT  FROM  CLCL , CLCM,  CLCH 

This  function  computes  CLCT  from  CLCL,  CLCM,  and  CLCH.  CLCT 


maximum  cloud  coverage  of  CLCL, 
values  ordered  as  foil  ows  : 


0 

no  cl  oud s 

1 

clear 

6 

thin  scat 

2 

scattered 

7 

thin  b r ok 

3 

broken 

8 

thin  over 

4 

overcast 

9 

partially 

5 

obscured 

PICjCLCT  ( 

CLCL, 

CLCM,  CLCH  ) 

Input  parameters: 

CLCL 

REAL 

CLCM 

REAL 

CLCH 

REAL 

Output  parameters 

: 

PR_jCLCT 

REAL 

CLCM,  and  CLCH,  with  coverage 

tercd 

en 

cast 

obs  cured 

Low  cloud  cover 
Medium  cloud  cover 
High  cloud  cover 

Maximum  cloud  cover 
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19.7  PRjCLCX  - CLCX  FROM  CQMX 


This  function  gets  CLCx  fromCOMx,  where  x represents  the  L (Low), 
M (Mid),  or  H (High)  cloud  level.  COMX  is  the  cloud  height 
(in  hundreds  of  feet)  * 10  + the  numeric  cloud  coverage  code. 


Input  parameters: 

CQMX  REAL 

Output  parameters: 

PRJCLCX  REAL 


Combined  height  and  coverage 
Numeric  cloud  coverage  code 
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19.8  PR_CLHX  - CLHX  FROM  COMX 


This  function  gets  CLHx  from  CCMx , where  x represents  the  L (Low), 
M (Mid),  or  H (High)  cloud  level.  CCMx  is  the  cloud  height 
(in  hundreds  of  feet)  * 10  + the  numeric  cloud  coverage  code. 


Input  parameters: 

CCMX  REAL 

Output  parameters: 

PICJCLHX  REAL 


C omb  ined  height  and  coverage 
Cloud  height  in  feet  * 100 
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19.9  PR_CLOA  - XCLO  FROM  CLCX 


This  function  computes  XCLO  from  CLCx.  The  output  is  the 
fractional  cloud  coverage;  x may  be  L,  M,  H or  T.  The  cloud 
coverage  values  and  the  corresponding  fractional  equivalents 


CLCx 

CLOUD  TYPE 

XCLO 

0 

no  cl  oud  s 

0.000 

1 

clear 

0.000 

2 

scattered 

0.333 

3 

broken 

0.667 

4 

overcast 

1 .000 

5 

obscured 

1.000 

6 

thin  scatterd 

0.167 

7 

thin  broken 

0.500 

8 

thin  overcast 

0 . 833 

9 

partially  obscured 

1.000 

PR_CLOA  ( CLCX  ) 

Input  parameters: 

CLCX 

REAL 

Numeric  cloud  coverage 

Output  parameters 

: 

PR_CLOA 

REAL 

Fractional  cloud  coverage 

are 
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19.10  PR_CMBC  - CMBC  FROM  CLCL , CLCM,  CLCH 


This  function  computes  CMBC,  the  combined  low,  mid  and  high  c 

coverages,  from  CLCL,  CLCM,  and  CLCH.  The  following  equation 
used: 

CMBC  - (CLCL  * 100)  + (CLCM  * 10)  + CLCH 
PR_CMBC  ( CLCL,  CLCM,  CLCH  ) 


Input  parameters: 

CLCL  REAL 

CLCM  REAL 

CLCH  REAL 

Ou  t p u t par  ame  ters : 

PELXMBC  REAL 


Low  cloud  coverage 
Medium  cloud  coverage 
High  cloud  coverage 


Combined  cloud  coverage 


oud 
i s 
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19.11  PR_COMH  - COMH  FROM  CHC1 , CHC2 , CHC3 

This  function  gets  COMH  from  CHC1 , CHC2 , and  CHC3 . COMH  is 
combined  height  and  numeric  sky  coverage  for  high  clouds  whi 
are  those  wh ose  height  is  greater  than  179,000  feet. 

PR_COMH  ( CHC1 , CHC2 , CHC3  ) 


Input  parameters: 
CHC1 
CHC2 
CHC3 

Output  parameters 
PR_COMH 


REAL 

Cl  oud 

height 

& c ov 

REAL 

Cloud 

height 

& c ov 

REAL 

Cl  oud 

height 

& c ov 

REAL 

H i c omb  i n e d 

height 

1 


the 

ch 


rage 
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19.12  PRJCQML 


This  function  ge 
combined  height 
are  those  wh o s e 

PR_CQML  ( CHCl , 

Input  parameters 
CHCl 
CHC2 
CHC3 

Output  parameter 
PR_COML 


- COML  FROM  CHCl , CHC2 , CHC3 


ts  COML  from  CHCl,  CHC2 , and  CHC3 . COML  is  the 
and  numeric  sky  coverage  for  low  clouds  which 
height  is  less  than  63,000  feet. 

CHC2 , CHC3  ) 


REAL 

Cl  oud 

height 

REAL 

Cl  oud 

height 

REAL 

Cl  oud 

height 

REAL 

L ow  c omb  i n e d 

& coverage  1 
& coverage  2 
& coverage  3 


height  & coverage 
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19.13  PR_COMM 


COMM  FROM  CHC1 , CHC2 , CHC3 


This  function  gets  COtvM  from  CHC1  , CHC2 , and  CHC3 . COMM  1 s the 
combined  height  and  numeric  sky  coverage  for  medium  clouds  which 
are  those  whose  height  is  greater  than  63,000  feet  and  less 
than  179,000  feet. 

PR_COMM  ( CHC1 , CHC2 , CHC3  ) 


Input  parameters: 

CHC1  REAL 
CHC2  REAL 
CHC3  REAL 


Cloud  height  & coverage  1 
Cloud  height  & coverage  2 
Cloud  height  & coverage  3 


Output  parameters: 
PICJCQMM 


REAL 


Me d c omb ined  height  & coverage 
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19.14  PR_COMT  - COMT  FRCM  COML , COMM,  COMH 

This  function  computes  CCMr  from  COML, COMM  and  COMH. 

PR_COMT  ( COML,  COMM,  COMH) 

Input  parameters: 

Low  report  height  & coverage 
Mid  report  height  & coverage 
High  report  height  & coverage 

Highest  combined  height  & 
cove  rage 


COML 

REAL 

COMM 

REAL 

COMH 

REAL 

put  parameters  : 

PICJCOMT 

REAL 
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19.15  PR__CQMX 


COMX  FROM  CLHX,  CLCX 


This  function  computes  COMX,  the  combined  cloud  height  and  coverage, 
from  CLHX  and  CLCX.  The  following  equation  is  used: 

COMX  = ( CLHX  * 10  ) + CLCX 

PR_CQMX  ( CLHX,  CLCX  ) 


Input  parameters: 

CLHX  REAL 

CLCX  REAL 


Cloud  height 
Cloud  coverage 


Output  parameters 
PR_COMX 


REAL 


Combined  height  & coverage 
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19.16  PR_D1 00  - DIVIDE  BY  100 

This  function  divides  a value  by  100. 
PRJ0100  ( VALUE  ) 


Input  parameters: 
VALUE 

REAL 

Va  1 u e 

Output  parameters: 
PRJ9100 

REAL 

Value  / 100 
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19.17  PRJDDEN  - DDEN  FROM  PRES,  TMPC 


This  function  computes  DDEN  from  PRES,  TMPC.  The  following 
equation  is  used: 

DDEN  - 100  * PRES  / ( RDGAS  * TMPK  ) 


100 

: c onve rsion 

f r om  mi  llibars  to 

pascals 

PR_PDEN  ( PRES  , TMPC  ) 

Input  parameters: 
PRES 
TMPC 

REAL 

REAL 

Pressure  in  mi 
Temperature  in 

llibars 

Celsius 

Output  parameters: 
PR_DDEN 

REAL 

Dens i ty  of  dry 

air  in  kg / (m*  * 3 ) 
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19.18  PR_JDDEP  - DPDX  FROM  TMPX,  EWPX 


This  function  computes  DPDX,  the  dewpoint  depression,  from  TMPX  and 
EWPX,  both  of  which  must  be  in  the  same  units  (Celsius,  Kelvin,  or 
Fahrenheit).  The  output  will  be  calculated  in  these  units.  The 
foil o w ing  equation  is  used: 

DPDX  - TMPX  - DWPX 
PICJDDEP  ( TMPX,  DWPX  ) 

Input  parameters: 


TMPX 

REAL 

Air  temperature 

DWPX 

REAL 

Dewpoint  temperature 

Output  pa  rame  ters  : 

PR_DDEP 

REAL 

Dewpoint  depression 
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19.19  PR^PRCT  - DRCT  FROMUX,  VX 


This  function  computes  DRCT  from  Ux  and  Vx , both  of  wh i 
be  either  meters/sec  or  knots.  The  following  equation 

DRCT  - ATAN2  ( -UX,  -VX  ) * RTD 


PRJ>RCT  ( UX,  VX 

) 

Input  parameters: 

U c omp o n e n t of 

ve  1 o c 

UX 

REAL 

VX 

REAL 

V c omp o n e n t of 

ve  1 oc 

Output  parameters: 

in  de 

PRJ3RCT 

REAL 

Wind  direction 

c h mu  s t 
is  used 


i ty 
i ty 


g r e e s 
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19.20  PRJWDP  - EWPX  FROM  TMPX,  DPDX 


This  function,  computes  EWPX  from  TMPX  and  DPDX,  both  of  which  must 
be  in  the  same  units  (Celsius,  Kelvin,  or  Fahrenheit).  EWPX  wi  1 1 
be  calculated  in  these  units.  The  following  equation  is  used: 

EWPX  - TMPX  - DPDX 
PRJWDP  ( TMPX,  DPDX  ) 

Input  parameters: 


TMPX 

REAL 

T emp  erature 

DPDX 

REAL 

Dewpoint  depression 

Output  parameters: 

PR_EWDP 

REAL 

Dewpoint 
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19.21  PRJWPT  - DWPT  FROM  MIXR,  PRES 


This  function  computes  EWPT  from  MIXR  and  PRES.  The  following 
equa  t i on  is  used: 

EWPT  - ALOG  (E  / 6.112)  * 243.5  / ( 17.67  - ALOG  (E  / 6.112)  ) 

E - vapor  pressure 

- e / ( 1.001  + ( (PRES  - 100.)  / 900.  ) * .0034  ) 

e - ( PRES  * MIXR  ) / ( .62197  + MIXR  ) 


Bolton. 

This  function  also  computes  TMPC  from  MIXS  and  PRES. 
PRJ3WPT  ( MIXR,  PRES  ) 

Input  parameters: 


MIXR 

REAL 

Mixing  ratio  in  g/kg 

PRES 

REAL 

Pressure  in  millibars 

Output  parameters: 

PRJ^VPT 

REAL 

Dewpoint  in  Celsius 
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19.22  PR_HGFM  - HGHT  FRCM  HGFT 

This  function  computes  HGHT  from  HGFT.  The  following  equation  is 
used: 

HGHT  - HGFT  * .3048 

PR^HGFM  ( HGFT  ) 

Input  parameters: 

HGFT  REAL  Height  in  feet 

Output  parameters: 

PIL_HGFM  REAL  Height  in  meters 
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19.23  PR_JIGFS  - HGML  FRCM  HGFT 

This  function  computes  HGML,  height  in  miles,  from  HGFT.  The 
following  equation  is  used: 

HGML  - HGFT  / 5280. 


PRJIGFS  ( HGFT  ) 
Input  parameters: 


HGFT 

REAL 

Height 

in  feet 

Output  parameters: 
PR^HGFS 

REAL 

Height 

in  statute  mi  1 e s 
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19.24  PR_HGKM  - HGHT  FROM  HGTK 


This  function  multiplies  a value  by  a thousand.  It  can  be 
compute  meters  from  kilometers. 


PR_J1GKM  ( VALUE  ) 

Input  parameters: 
VALUE 

REAL 

Va  1 u e 

Output  parameters: 
PR_HGKM 

REAL 

Value  * 1000 

used  to 
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19.25  PIL_HGMD  - HGTD  FROM  HGHT 

This  function  computes  HGTD  from  HGHT.  The  following  equat 
used: 

HGTD  = HGHT  / 10. 


PR_HGMD  ( HGHT  ) 
Input  parameters: 


HGHT 

REAL 

Height  in  meters 

Output  parameters: 
PR_HGMD 

REAL 

Height  in  decameters 

ion  is 
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19.26  PR_HGMF  - HGFT  FROM  HGHT 

This  function  computes  HGFT  from  HGHT.  The  following  equation  is 
used: 

HGFT  - NINT  ( HGHT  * 3.28084  ) 

(Note:  This  function  rounds  to  the  nearest  foot.) 

PILJIGMF  ( HGHT  ) 

Input  parameters: 

HGHT  REAL  Height  in  meters 

Output  par  ame  t e r s : 

PRw-HGMF  REAL  Height  in  feet 
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19.27  PR_HGMK  - HGTK  FROM  HGHT 


This  function  divides  a value  by  1000.  It  can  be  used  t 
me  ters  to  kil ome  ters . 

PR_HGMK  ( VALUE  ) 

Input  parameters: 


VALUE 

REAL 

Va  1 u e 

Output  parameters: 
PR_HGMK 

REAL 

Value  / 1000 

o c onve  r t 
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19.28  PIUIGSF  - HGFT  FROM  HGML 

This  function  computes  HGFT  from  HGML . The  following  equation  is 
used: 


HGFT  - HGML  * 5280 


PR_HGSF  ( HGML  ) 

Input  parameters: 
HGML 

REAL 

He i gh  t 

in  statute  miles 

Output  parameters: 
PR_HGSF 

REAL 

Height 

in  feet 
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19.29  PR INNM  - MM  FROM  INCHES/  100 

This  function  converts  hundredths  of  inches  to  millimeters.  The 
following  equation  is  used: 

INMM  - XINCH  * .254 


PR3MIN  C XINCH  ) 
Input  parameters: 


XINCH 

REAL 

Hund  r ed  t h s 

Ou  t pu  t par  ame  t e r s : 
PR_INMM 

REAL 

Mill ime  t e r s 
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19.30  PILJCNMS  - SPED  FROM  SKNT 

This  function  computes  SPED  from  SKNT.  The  following  equation  is 
used: 


SPED  = SKNT  / 1 . 9438 


PRJCNMS  ( SKNT  ) 

Input  parameters: 
SKNT 

REAL 

Speed 

in  knots 

Output  parameters: 
PRJCNMS 

REAL 

Speed 

i n me  ters/second 
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19.31  PR_LATI  - LATI  FROM  RANG,  AZIM 


This  function  computes  LATI  given  the  range,  azimuth  and  station 
latitude,  longitude  and  elevation.  Equations  developed  for  use 
in  the  AO IPS  radar  package  are  used. 

PR_LATI  ( SLAT,  SLON,  RANGE,  AZIM,  SELV  ) 

Input  parameters: 

SLAT  REAL 

SLON  REAL 

RANGE  REAL 

AZIM  REAL 

SELV  REAL 

Ou  t p u t par  ame  t e r s : 

PRJ-ATI  REAL  Actual  latitude 


Station  latitude 
Station  longitude 
Range  in  kilometers 
Geographic  azimuth  in  radians 
Station  elevation 
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19.32  PR_LHVP  - LHVP  FROM  TMPC 

This  function  computes  LHVP  from  TMPC.  LHVP,  the  latent  heat  of 
vaporization  at  constant  pressure,  is  computed  as  follows: 


LHVP 

= ( 2.501  - 

.00237  * TMPC  ) * 

1 0E6 

PRJLHVP  ( TMPC  ) 

Input  parameters: 
TMPC 

REAL 

T emp  erature 

in  Celsius 

Output  parameters: 
PR_LHVP 

REAL 

Latent  heat 

in  J/kg 
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19.33  PR LON I - LONI  FROM  RANG,  AZIM 

This  function  computes  LONI  given  the  range,  azimuth  and  station 
latitude,  longitude  and  elevation.  Equations  developed  for  use 
in  the  AO IPS  radar  package  are  used. 

PR^LONI  ( SLAT,  SLON,  RANGE,  AZIM,  SELV  ) 

Input  parameters: 

SLAT  REAL 

SLON  REAL 

RANGE  REAL 

AZIM  REAL 

SELV  REAL 

Output  parameters: 

PR^LONI  REAL  Actual  longitude 


Station  lati t ud  e 
Station  1 ong i t ud  e 
Range  in  kilometers 
Geographic  azimuth  in  radians 
Station  elevation 
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19.34  PR^LTMP  - LIFTED  PARCEL 


This  function  computes  the  temperature  of  a parcel  lifted  (or  sunk) 
ad i aba t i c a 1 1 y to  a given  pressure. 

PRJLTMP  ( THTA,  THTE , PRES  ) 

Input  parameters: 

THTA 
. THTE 
PRES 

Ou  t p u t par  ame  t e r s : 

PRwJYIMP  REAL  Lifted  temperature  in  Celsius 


REAL  Potential  temperature  in  Kelvin 

REAL  Equivalent  potential  temp  in  Kelvin 

REAL  Lifted  pressure 
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19.35  PIL_M100  - MULTIPLY  BY  100 

This  function  multiplies  a value  by  100. 
PR_M100  ( VALUE  ) 

Input  parameters: 


VALUE 

REAL 

Value 

Output  parameters: 
PRJvllOO 

REAL 

Va  1 ue 

100 
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19.36  PR_MHGT  - COMPUTE  MHGT 


This  function  computes  the  moist  hydrostatic  height  at  pressure,  PT, 
from  a lower  height  and  pressure,  and  the  scale  height  in  the  layer. 
PR^_SCLH  can  be  used  to  compute  the  scale  height.  MHGT  is 
computed  as  an  integrated  quantity.  Thus,  the  lower  height  should 
have  been  integrated  from  the  surface. 

PR^MHGT  = HB  + SCALE  * ALOG  ( PB  / PT  ) 

PRJdHGT  ( HB,  PB,  PT,  SCALE  ) 

Input  parameters: 

HB  REAL 

PB  REAL 

PT  REAL 

SCALE  REAL 

Output  parameters: 

PRJV1HGT  REAL 


B o 1 1 om  height 
B o 1 1 om  pressure 
Top  pressure 
Scale  height 


Moist  hydrostatic  height 
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19.37  PR_MIXR  - MIXR  FROM  EWPC , PRES 

This  function  computes  MIXR  from  EWPC  and  PRES.  The  following 
equation  is  used: 

MIXR  - .62197  * ( e / ( PRES  - e ) ) * 1000. 
e - VAPR  * corr 

corr  - (1.001  + ( ( PRES  - 100.  ) / 900.  ) * .0034) 

University  of  Wisconsin  green  sheet. 

This  function  can  also  be  used  for  the  following  computations: 

MIXS  from  TMPC  and  PRES 

SMXR  from  EWPC  and  PALT 

SMXS  from  TMPC  and  PALT 

PR^MIXR  ( DWPC , PRES  ) 

Input  parameters: 


EWPC 

REAL 

Dewpoint 

in  Celsius 

PRES 

REAL 

Pressure 

in  millibars 

Output  par  ame  tcrs  : 

PR_MIXR 

REAL 

Mixing  ra 

tio  in  g/kg 
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19.38  PR^MMIN  - INCHES/100  FROM  MM 

This  function  converts  millimeters  to  hundredths  of  inches.  The 
following  equation  is  used: 

MVIIN  - 3.93701  * XMILM 

PRJdVHN  ( XMILM  ) 

Input  parameters: 

XMI LM  REAL  Millimeters 

Output  parameters: 

PIL_NMIN  REAL  Hundredths  of  inches 
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19.39  PR_MSKN 

- SKNT 

FROM  SPED 

This  function  computes  SKNT  from  SPED.  The 
used: 

SKNT  - SPED  * 1 .9438 

foil owi  ng  equation 

PR^MSKN  ( SPED  ) 

Input  parameters: 
SPED 

REAL 

Speed  in 

me  ters/ sec  ond 

Output  parameters: 
PR_MSKN 

REAL 

Speed  in 

kno  t s 
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19.40  PR_Jn’SYM  - VMMO  FROM  WNUM 

This  function  converts  the  GEMPAK  weather  code  WNUM  to  the  WMO 
weather  code,  W\MO,  which  is  used  to  plot  weather  symbols. 

PRJVSYM  ( WNUM  ) 

Input  parameters: 

WNUM  REAL  GEMPAK  numeric  code 

Output  parameters: 

PR^NSYM  REAL  Weather  symbol  number 
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19.41  PR_PALT 

- PALT 

FROM  ALTM,  SELV 

This  function  computes  PALT  from  ALIM  and  SELV. 

The  following 

equation  is  used: 

PALT  = ALTM  * 

( 1 - ( 

SELK  * GAMUSD  / To  ) ) 

* * expo 

SELK  = 

SELV  / 

1000 

in  Kelvin 

To  = 

US  Std  . 

Atmos,  sea  level  temp 

= 

288  . 

/ ( GAMUSD  * RDGAS  ) * 

expo  = 

GRAVTY 

1000 

Wallace  and  Hobbs 

• 

PIL-PALT  ( ALTM, 

SELV  ) 

Input  parameters: 

Altimeter  in 

mi  1 1 i b a r s 

ALTM 

REAL 

SELV 

REAL 

Station  eleva 

t i on  in  me  t e r s 

Output  parameters: 

PR_PALT  REAL  Pressure  in  millibars 
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19.42  PR PKDD  - DRCT  FROM  PSPD 


This  function  computes  DRCT  from  PSPD.  PSPD  is  in  the  form  DDFFF 
where  DD  is  the  wind  direction  in  tens  of  degrees,  and  FFF  is 
either  the  wind  speed  or  wind  speed  plus  500,  depending  on  the 
units  digit  of  direction  rounded  to  the  nearest  5 degrees.  The 
following  equation  is  used: 

DRCT  = 5.  * INT  ( PSPD  / 500.  ) 

PR PKDD  ( PSPD  ) 


Input  par  ame  t e r s : 

PSPD  REAL 

Output  parameters: 

PIL_PKDD  REAL 


Packed  speed  and  direction 
Wind  direction  in  degrees 
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19.43  PR PKSS  - SPED  FROM  PSPD 


This  function  computes  SPED  from  PSPD.  PSPD  is  in  the  form  DDFFF, 
where  DD  is  the  wind  direction  in  tens  of  degrees,  and  FFF  is 
either  the  wind  speed  or  the  wind  speed  plus  500,  depending  on 
the  unit  digit  of  direction  rounded  to  the  nearest  5 degrees. 

The  following  equation  is  used: 


SPED  - 

MOD  ( INT 

(PSPD)  , 500  ) 

PR_J>KSS  ( PSPD  ) 

Input  parameters: 
PSPD 

REAL 

Packed  speed  and  direction 

Output  parameters 
PR PKSS 

REAL 

Wind  speed  in  knots 
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19.44  PR — PLCL  - PLCL  FROM  TMPC,  PRES,  TLCL 

This  function  computes  PLCL  from  TMPC,  PRES,  and  TLCL  for  an  air 
parcel.  TMPC  and  PRES  refer  to  the  parcel  before  lifting,  while 
TLCL  is  the  temperature  at  the  LCL . TLCL  may  be  computed  using 
PR — TLCL.  The  equation  used  is  a modified  Poisson  equation: 

PLCL  - PRES  * ( TLCL  / TMPK  ) **  ( 1 / RKAPPA  ) 

PILJ’LCL  ( TMPC,  PRES,  TLCL  ) 

Input  parameters: 

TMPC  REAL  Temperature  in  Celsius 

PR^S  REAL  Pressure  in  millibars 

TLCL  REAL  LCL  temperature  in  Kelvin 

Output  parameters: 

PR — PLCL  REAL  LCL  pressure  in  millibars 
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19.45  PRJ'MSL  - PMSL  FROM  PRES,  TMPC,  DWPC,  SELV 


This  function  computes  PMSL  from  PRES,  TMPC,  EWPC,  and  SELV. 
following  equation  is  used: 

PMSL  - PRES  * EXP  C C GRAVTY  * SELV  ) / ( RDGAS  * TVAVE  ) 

TVAVE  = avg  virtual  t emp  b e t w een  station  and  sea  lev 
- TVRK  + C DELTV  / 2 ) 

DELTV  = GAMUSD  * SELV  / 1000 

Wallace  and  Hobbs. 


PILPMSL  ( PRES,  TMPC,  EWPC , SELV  ) 


Input  parameters: 

PRES 

REAL 

TMPC 

REAL 

DWPC 

REAL 

SELV 

REAL 

Output  parameters: 

PRJPMSL 

REAL 

Station  pressure  in  mi  1 1 i 
Temperature  in  Celsius 
D e wp oint  in  Celsius 
Station  elevation  in  mete 

Mean  sea  level  pressure  i 


The 

) 

2 1 

bars 
r s 

n mb 
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19.46  PIL-PRES  - PRES  FROM  TMPC,  THTA 


This  function  computes  PRES  from  TMPC  and  THTA.  Poisson’s  equation 
is  used: 


PRES  - 1000.  * ( PR_TMCK  (TMPC)  / THTA  ) **  (l  / RKAPPA) 
PR_PRES  ( TMPC,  THTA  ) 


Input  parameters: 
TMPC 
THTA 

Output  parameters: 
PILJ>RES 


REAL 

Temperature  in  Celsius 

REAL 

Potential  t emp  e r a t u r e 

REAL 

Station  pressure  in  mi 

n Kelvin 


1 i ba  r s 
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19.47  PR PSPD  - PS PD  FROM  DRCT , SPED 


This  function  computes  PSPD  from  DRCT  and  SPED.  PSPD  is  in  the 
form  DDFFF , where  DD  is  the  wind  direction  in  tens  of  degrees, 
and  FFF  is  either  the  wind  speed  or  wind  speed  plus  500, 
depending  on  the  unit  digit  of  direction  rounded  to  the  nearest 
5 degrees.  The  following  equation  is  used: 

PSPD  = JDRCT  * 500  + JSPED 

JDRCT  = NINT  ( DRCT  / 5 ) 

JSPED  = NINT  ( SPED  ) 

PR_J»SPD  ( DRCT,  SPED  ) 

Input  parameters: 

DRCT  REAL  Wind  direction  in  degrees 

SPED  REAL  Wind  speed 

Output  parameters: 

PRJSPD  REAL  Packed  speed  and  direction 
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19.48  PR_RELH  - RELH  FROM  TMPC,  EWPC 


This  function  computes  RELH  from  TMPC  and  DWPC.  The  following 
equationisused: 

RELH  - VAPR  / VAPS  * 100 

VAPR  «=  vapor  pressure 

= PR_VAPR  ( DWPC  ) 

VAPS  = saturation  vapor  pressure 
= PR_VAPR  ( TMPC  ) 


PR RELH  ( TMPC , 

DWPC  ) 

Input  parameters: 

TMPC 

REAL 

T emp  erature  in 

Celsius 

EWPC 

REAL 

Dewpoint  in  Ce 

1 s i u s 

Output  parameters 
PR_RELH 

REAL 

Relative  humid 

ity  in  percent 
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19.49  PR_RHDP  - EWPC  FROM  TMPC,  RELH 


This  function  computes  EWPC  from  TMPC  and  RELH.  The  following 
equat ion  is  used: 

PMTPC  = 2 43.5  * LN  (6.112)  - 243.5  * LN  (VAPR)  / 

( LN  (VAPR)  - LN  (6.112)  - 17.67  ) 

VAPR  = VAPS  * RELH 

VAP S = saturation  vapor  pressure 
= PIL-VAPR  ( TMPC  ) 

Note:  If  EhVPC  is  less  than  -190  degrees  C,  it  is  treated  as 

mi  ssing  data. 

PR_RHDP  ( TMPC,  RELH  ) 


Input  parameters: 
TMPC 
RELH 

Ou  t p u t par  ame  ters  : 
PR RHDP 


REAL 

REAL 

Temperature  in  Celsius 
Relative  humidity  in  percent 

REAL 

Dewpoint  in  Celsius 
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19.50  PR_RWSH  - RWSH  FROM  ASHEVILLE  CODE 


This  function  computes  RWSH  from  INUM,  an  8-integer  array.  INUM, 
the  original  8-digit  Asheville  integer  code  is  converted  to  RWSH  a 
7-digit  real  number  which  can  be  stored  in  a surface  file.  Note’ 
that  real  numbers  have  only  7-digit  precision.  Meaningful  data  in 
column  1 is  added  to  column  8.  Thus,  some  data  that  were  originally 
in  column  8 may  be  lost.  The  data  that  can  be  lost  in  column  8 
include  1)  smoke,  2)  haze,  3)  smoke - and-haze , 4)  dust,  and 
5J  blowing  snow.  A packed  real  number  is  then  constructed  from 
columns  2 through  8 as  2345.678. 

PR_RWSH  ( INUM  ) 


Input  parameters: 
INUM  (8) 


INTEGER 


NCDC  8-digit  weather  code 


Output  parameters: 

PRJRWSH  REAL 


Packed  7-digit  weather  code 
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19.51  PR SAL  I - SAL  I FROM  ALT  I 


This  function  computes  SALI  fromALTI.  SALI  is  an  abbreviated 
altimeter  code  in  inches  which  contains  the  unit  digit  an  * ® 

first  two  digits  after  the  decimal  points.  ALTI  is  multiplied  by 
100  truncated,  and  the  original  tens  digit  dropped.  The  following 
equa  t ion  is  used: 


SALI 


NINT 


( MOD  ( ALTI,  10  ) * 100  ) 


PR SAL I ( ALTI  ) 

Input  parameters: 

ALTI  REAL 

Output  par  ame  t e r s : 

PR SAL  I REAL 


Altimeter  setting  in  inches 
Abbreviated  standard  altimeter 
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19.52  PR — SCLH  - COMPUTE  SCALE  HEIGHT 


This  function  computes  SCLH  from  TB,  TT,  TDB , TDT,  PB,  and  PT. 
SCLH,  the  scale  height  in  a layer,  can  then  be  used  to  compute 
the  moist  hydrostatic  height.  The  following  equation  is  used: 

SCLH  = ( RDGAS  / GRAVTY  ) * TAV 


TAV 

TVIRTB  = 

TVIRTT  - 

PR_SCLH  ( TB,  TT, 

TDB , TDT , 

Input  pa  r ame  t e r s : 

TB 

REAL 

TT 

REAL 

TDB 

REAL 

TDT 

REAL 

PB 

REAL 

PT 

REAL 

Output  parameters: 

PR_SCLH 

REAL 

average  virtual  temperature  in  layer 
( TVIRTB  + TVIRTT  ) / 2 
virtual  temperature  at  bottom 
virtual  temperature  at  top 

PB,  PT  ) 


Bottom  temperature  in  Celsius 
Top  temperature  in  Celsius 
Bottom  dewpoint  in  Celsius 
Top  dewpoint  in  Celsius 
Bottom  pressure  in  millibars 
Top  pressure  in  millibars 


Scale  height 


i n me  t e r s 
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19.53  PR SPED  - SPED  FROM  UWND,  VWND 


This  function  computes  SPED  from  UWND  and  VWND.  The 
equation  is  used: 

SPED  - SQRT  ( (UWND*  * 2 ) + (VWND**2)  ) 

This  function  computes  SKNT  if  UKNT  and  VKNT  are  inp 
PK_SPED  ( UWND,  VWND  ) 


Input  parameters: 
UWND 
VWND 

Ou  t pu  t par  ame  t e r s : 
PR SPED 


REAL 

U c omp  o n e n t 

REAL 

V c omp onent 

REAL 

Wind  speed 

foil  owing 


t . 


1 oc  i ty 
1 oc  i ty 
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19.54  PR — STDZ  - STDZ  FROM  PRES,  HGHT 


This  function  computes  a standard  height  used  on  upper-air  charts 
For  data  below  500  mb,  the  standard  height  is  the  last  three  digits 
of  the  height.  For  data  at  and  above  500  mb,  the  height  is  the 
last  three  digits  of  the  height  in  dec  ame  t e r s . 

PIL_STDZ  ( PRES,  HGHT  ) 


Input  parameters: 


PRES 

REAL 

Pressure  in 

mi  1 1 i ba 

HGHT 

REAL 

Height  in  me  t e r s 

Output  parameters: 

PIL_STDZ 

REAL 

Abbreviated 

height 
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19.55  PR_THTA  - THTA  FROM  TMPC,  PRES 

This  function  computes  THTA  from  TMPC  and  PRES  using  Poisson’s 
equa  t i on : 

THTA  - TMPK  * ( 1000  / PRES  ) **  RKAPPA 

This  function  also  computes  STHA  from  TMPC  and  PALT , THTV  from 
TVRC  and  PRES,  and  THTV  from  TVRC  and  PALT. 

PR_THTA  ( TMPC,  PRES  ) 

Input  parameters: 


TMPC 

REAL 

Temperature  in  Celsius 

PRES 

REAL 

Pressure  in  millibars 

Output  par  ame  ters  : 

PR_THTA 

REAL 

Potential  t emp  erature  in  K 
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19.56  PR_THTE  - THTE  FROM  PRES,  TMPC,  DWPC 


This  function  computes  THTE  from  PRES,  TMPC,  DWPC.  In  the 
calculation,  MIXR  depends  on  PRES  and  EWPC;  TLCL  depends  on 
TMPC  and  DWPC.  The  following  equation  is  used: 

THTE  = THTAM  * EXP  [ ( 3.376/TLCL  - .00254  ) * 

( MIXR  * ( 1 + .81* .001*MIXR  ) ) ] 


THTAM  = potential  temperature  of  moist  air 
= TMPK  * (1000  / PRES)  * * E 
E = RKAPPA  * ( 1 - ( .28  * .001  * MIXR  ) ) 


Bolton. 

PRJTHTE  ( PRES, 

TMPC,  DWPC  ) 

Input  parameters: 

PRES 

REAL 

Pressure  in  millibars 

TMPC 

REAL 

Temperature  in  Celsius 

DWPC 

REAL 

Dewpoint  in  Celsius 

Output  parameters 

; 

PR_THTE 

REAL 

Equivalent  potential  temp 
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19.57  PR_TLCL  - TLCL  FROM  TMPC,  EWPC 


This  function  computes  temperature  at  the 
Level  for  a parcel  of  air  given  TMPC  and 
equation  is  used: 


Lifted  Condensation 
EJWPC.  The  following 


TLCL  =[1/(1/  (EWPK-56)  + ALOG  (TMPK/EWPK)  / 800  ) ] + 56 


Bolton. 

PR_TLCL  ( TMPC , ITvVPC  ) 


Input  parameters: 
TMPC 
EWPC 

Output  parameters: 
PICJTLCL 


REAL 

Tempe 

REAL 

Dewpo 

REAL 

LCL  t 

rature  in  Celsius 
i n t in  Ce 1 s i u s 

empe rature  in  Kelvin 
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19.58  PR_TMCF  - TMPF  FRCM  TMPC 

This  function  computes  TMPF  from  TMPC.  The  following  equation  is 
used: 

TMPF  = ( TMPC  * 9 / 5 ) + 32 


PR_TMCF  ( TMPC  ) 
Input  parameters: 


TMPC 

REAL 

Tempe  r a t ur  e 

in  Celsius 

Output  parameters: 

PR_TMCF 

REAL 

T emp  e r a t u r e 

in  Fahr  enhe i t 
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19.59  PR_TMCK  - TMPK  FRCM  TMPC 

This  function  computes  TMPK  from  TMPC.  The  following  equation  is 
used: 

TMPK  - TMPC  + 273.16 

PRJIMCK  ( TMPC  ) 

Input  parameters: 

TMPC  REAL  Temperature  in  Celsius 

Output  parameters: 

PIL_TMCK  REAL  Temperature  in  Kelvin 
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19.60  PR_TMFC  - TMPC  FROM  TMPF 

This  function  computes  TMPC  from  TMPF.  The  following  equation  is 
used: 

TMPC  - ( TMPF  - 32  ) * 5 / 9 
PR_TMFC  ( TMPF  ) 

Input  parameters: 

TMPF  REAL  Temperature 

Output  parameters: 

PR TMFC  REAL  Temperature 


in  Fahr enhe i t 
in  Celsius 
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19.61  PIL_TMFK  - TMPK  FROM  TMPF 

This  function  computes  TMPK  from  TMPF.  The  following  eq 
used: 

TMPK  - ( TMPF  - 32  ) * 5 / 9 + 273.16 


PR_TMFK  ( TMPF  ) 

Input  parameters: 
TMPF 

REAL 

T empe  r a tu  r e 

in  Fah r en 

Output  parameters: 
PR_TMFK 

REAL 

Tempe  ra  tur e 

in  Kelvin 

ua  t i on 


he  i t 


i s 
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19.62  PRJIMKC  - TMPC  FROM  TMPK 

This  function  computes  TMPC  from  TMPK.  The  following  equation  is 
used: 

TMPC  - TMPK  - 273.16 

PR_TMKC  ( TMPK  ) 

Input  parameters: 

REAL  Temperature  in  Kelvin 

Output  parameters: 

PR — TMKC  REAL  Temperature  in  Celsius 
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19.63  PR_TMKF  - TMPF  FRCM  TMPK 


This  function  computes  TMPF  from 

TMPK. 

The  following  equation 

used: 

TMPF 

= ( ( TMPK  - 

273.16 

) * 9 / 

5 ) + 32 

PRJIMKF  ( TMPK  ) 

Input  parameters: 
TMPK 

REAL 

Tempe  r a tu  r e 

in  Kelvin 

Output  parameters 
PR__TMKF 

REAL 

Temperature 

in  Fahrenheit 
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19.64  PR_TMPK  - TMPK  FROM  PRES,  THTA 


This  function  computes  TMPK  from  PRES  and  THTA.  The  Poi 
equation  is  used: 


TMPK  - THTA  * ( 

PR_TMPK  ( PRES,  THTA  ) 

Input  parameters: 

PRES  REAL 

THTA  REAL 

Output  parameters: 

PR_TMPK  REAL 


PRES  / 1000  ) **  RKAPPA 

Pressure  in  millibars 
Potential  t emp  e r a t u r e 

Temperature  in  Kelvin 


s s on 


in  K 
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19.65  PR_TMST  - PARCEL  TEMPERATURE 


PRES,  TGUESS 


This  function  computes  TMST  from  THTE, 

parcel  temperature  at  level  PRES  on  a specified  moist 
(THTE).  The  computation 
of  the  form: 


i s 


an  iterative  Newton 


TMST  is  the 
ad i aba  t 

Raphson  technique 


x(guess)  + [ f(  x ) - f(  x(guess)  ) ] / f’(  x(guess)  ) 


f*  is  approximated  with  finite  differences 
f’  = [ f(  x(guess)  + 1 ) - f(  x(guess)  ) ] / 1 


If  TGUESS  is  0,  a reasonable  first  guess  will  be  made 


Convergence  is  not  guaranteed  for  extreme  input  values, 
computation  does  not  converge  after  100  iterations,  the 
data  value  will  be  returned. 


If  the 
mi  s s i ng 


PR_TMST  ( THTE,  PRES,  TGUESS  ) 


Input  parameters: 
THTE 
PRES 
TGUESS 

REAL 

REAL 

REAL 

Equivalent  potential  temp  in 
Pressure  in  millibars 
First  guess  temperature  in  K 

Output  parameters: 
PIL_TMST 

REAL 

Parcel  temperature  in  Kelvin 
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19.66  PR_TVRK  - TVRK  FROM  TMPC,  DWPC,  PRES 


This  function  comput 
and  PRES  are  used  to 
used: 


es  TVRK  from  TMPC,  DWPC  and  PRES,  where 
compute  MIXR.  The  following  equation 


DWPC 
i s 


TVRK  - TMPK  * (1 

+ .001  * 

MIXR  / .62197)  / (1  + .001  * MIXR) 

If  DVPC  is  missing 

, dry  air 

is  ass ume d and  TMPK  is  returned. 

PR— TVRK  ( TMPC,  DWPC,  PRES 

) 

Input  parameters: 
TMPC 
DWPC 
PRES 

REAL 

REAL 

REAL 

Temperature  in  Celsius 
Dewpoint  in  Celsius 
Pressure  in  millibars 

Output  parameters: 
PR_TVRK 

REAL 

Virtual  temperature  in  Kelvin 
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19.67  PRJUWND  - LWND  FROM  SPED,  DRCT 

This  function  computes  LWND  from  SPED  and  DRCT  or  UKNT  from  SKNT 
and  DRCT.  The  following  equation  is  used: 

UWND  - -SIN  ( DRCT  ) * SPED 


PIUUWND  ( SPED, 

DRCT  ) 

Input  parameters: 

SPED 

REAL 

Wind 

speed 

DRCT 

REAL 

Wind 

direction 

Output  parameters 
PRJUWND 

REAL 

U component 
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19.68  PR_VAPR  - VAPR  FROM  IWPC 

This  function  computes  VAPR  from  EWPC.  The  following  equation  is 
used: 

VAPR  - 6.112  * EXP  [ (17.67  * EKVPC)  / (DWPC  + 243.5)  ] 

Bolton. 

This  function  will  compute  VAPS  if  TMPC  is  input. 

PIL_VAPR  ( EWPC  ) 

Input  parameters: 

REAL  Dewpoint  in  Celsius 

Output  parameters: 

PR— VAPR  REAL  Vapor  pressure  in  millibars 
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19.69  PR__VWND  - VWND  FROM  SPED,  DRCT 


This  function  computes  VWND  from 
and  DRCT.  The  following  equation 

VWND  - -COS  ( DRCT 

PR_VWND  ( SPED,  DRCT  ) 

Input  parameters: 

SPED  REAL 

DRCT  REAL 


Ou  t pu  t par  ame  t e r s : 

PR_VWND  REAL 


SPED  and  DRCT  or  VKNT  from  SKNT 
is  used: 

) * SPED 
Wind  speed 

Wind  direction  in  degrees 
V component 
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19.70  PIL3CMP  - WIND  COMPONENT 


This  function  computes  the  wind  component  toward  a 
direction.  The  following  equation  is  used: 


specified 


W3dP  - -COS  ( DRCT  - DCMP  ) * SPED 


TO1P  - component  of  wind  in  me  t e r s/ s e cond 
DRCT  - wind  direction  in  degrees 
DCMP  “ direction  of  desired  component 
SPED  = wind  speed  in  me  t e r s / s e c ond 

PRJWCMP  ( DRCT,  SPED,  DCMP  ) 


Input  parameters: 

sped  real 

DRCT  REAL 


Wind  speed  in  me  t e r s / s e cond 
Wind  direction  in  degrees 
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19.71  PR_WNML  - NORMAL  WIND  COMPONENT 


This  function  computes  the  wind  component  toward  a direction  90 
degrees  counterclockwise  of  a specified  direction.  If  no 
direction  is  specified,  the  c omp  o n e n t t owa  rd  north  is  returned. 
The  following  equation  is  used: 

WNML  - -COS  ( DRCT  - ( DCMP-90  ) ) * SPED 

WNML  - component  of  wind  in  me  t e r s / s e c ond 

DRCT  = wind  direction  in  degrees 

DCMP  — specified  direction 

SPED  = wind  speed  in  me  t e r s / s e c ond 

PR_WNML  ( DRCT,  SPED,  DCMP  ) 


Input  parameters: 

DRCT  REAL 
SPED  REAL 
DCMP  REAL 


Wind  direction  in  degrees 
Wind  speed  in  me  t e r s / s e c 
Input  direction  in  degrees 
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19.72  PR_ZALT  - ZALT  FROM  ALTM,  PRES 


This  function  computes  a height  from  ALTM  and  PRES.  This  function 
is  used  to  estimate  height  at  various  pressure  levels  from  the 
altimeter  in  millibars.  The  PC  library  computes  ZMSL,  Z000 , Z950 
Z850 , Z800  by  calling  PICJZALT  wi th  PRES  equal  to  PSML,  1000,  950,’ 
850  and  800  respectively.  The  following  equation  is  used: 

ZALT  - [ To  * ( 1 - ( ( PRES/ ALTM  ) **  expo  ) ] / GAMMA 


GAMMA  - 

GAMUSD  / 

1000 

To  = 

US  Std. 

Atmos,  sea  level  temp  in  Kelvi 

= 

288  . 

expo  = 

( GAMMA 

* RDGAS  ) / GRAVTY 

PR_ZALT  ( ALTM, 

PRES  ) 

Input  parameters: 

ALTM 

REAL 

Altimeter  in  millibars 

PRES 

REAL 

Pressure  in  millibars 

Output  parameters 

: 

PR^ZALT 

REAL 

Height  in  me  t e r s 
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PT_CCNM 

PT_CLDN 

PT_CLDS 

PT_CMCL 

PT_OCHR 

PT_PWTH 

PT_SALT 

PT_WASH 

PT3COD 

PT_WNIM 

PT_WSYM 

PT_WTHR 

PT_WIMO 

PT_W604 


Compu  t e 
Compu  t e 
C omp  u t e 
Compu  t e 
Compu  t e 
Compu  t e 
Compu  t e 
Compu  t e 
Compu  t e 
Compu  t e 
Compu  t e 
Compu  t e 
C omp  u t e 
Compu  t e 


numeric  cloud  coverage 
character  cloud  coverage 
cloud  cover  for  3 levels 
combined  height  and  cover 
ozone  character  code 
character  past  weather 
3-character  pressure  code 
Asheville  weather  code 
character  weather  code 
numeric  weather  code 
weather  symbol  code 
old  character  weather 
WvlO  character  weather 
old  numeric  weather 
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Character  Translation  ( PT ) Library  Summary 


The  character  translation  library  contains  functions  to  convert 
numeric  codes  into  character  strings  and  vice  versa.  The  functions 
which  output  character  data  are  called  by  the  GEMPAK  parameter 
conversion  (PC)  library.  Since  all  data  in  GEMPAK  files  must  be 
stored  as  real  values,  functions  to  translate  character  data  to 
numeric  codes  are  included  for  use  in  data  ingest  programs. 

When  creating  a GEMPAK  file,  the  numeric  names  MUST  be  used. 


Several  methods  for  storing  surface  weather  reports  are  available 
he  parameter  names  and  conversion  functions  are  included  in  the 
following  table.  For  new  files,  WNUM  should  be  used. 


Data  Type 


general  we  a t h e r 
old  we  a the  r 
WMO  we  a t h e r 
Asheville 
YAK)  past  weather 


Char  Name  Num  Name 


WCOD 

WTHR 

WTMO 

WASH 

PWTH 


WNUM 

W604 

YWMO 

RWSH 

PWftM 


N- - >C  Conv  C- - >N  Conv 


PT3COD 

PT_WTHR 

PT_WTMO 

PT_WASH 

PT_JWTH 


PT_WNUM 

PT_W604 
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PT  Library  Calls 


PT_CCNM 

( xc  Id 

) 

PT_CLDN 

( c 1 cx 

) 

PT__CLDS 

( cmbc 

) 

PT_CMCL 

( comx 

) 

PT_OCHR 

( ozone 

) 

PT __PWTH 

( pwwm 

) 

PT_SALT 

( rval 

) 

PTJWASH 

( rwsh 

) 

PT3COD 

( wnum 

) 

PTJWNIM 

( wthr 

) 

PTJWSYM 

C wthr 

) 

PT__WTHR 

( w604 

) 

PT_WTMO 

( wwmo 

) 

PT_JV604 

( wthr 

) 

20-3 


CHARACTER  TRANSLATION  (PT)  LIBRARY 
20.1  PT__CCNM  - COMPUTE  NUMERIC  CLOUD  COVERAGE 


This  function  translates  character  cloud  coverage 
c 1 oud  coverage:  * 


into  a numeric 


CLCx  - PT_CCNM  ( xCLD  ) 


CLR  - 1 
SCT  - 2 
BKN  - 3 
OVC  - 4 


X - 5 
-SCT  - 6 
-BKN  - 7 
-OVC  - 8 
-X  - 9 


The  characters  must  be  left- just  if ied  in  the  string. 
PT__CCNM  ( XCLD  ) 


Input  parameters: 

XCLD  CHAR* 

Output  parameters: 

PT_CCNM  REAL 


Character  cloud  coverage 
Numeric  cloud  code 
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20.2  PT_CLDN  - COMPUTE  CHARACTER  CLOUD  COVERAGE 


This  character  function  translates  numeric  cloud  coverage  into 
character  cloud  coverage. 

xCLD  - PT_CLDN  ( CLCx  ) 


0 - * * 

1 - CLR 

2 - SCT 

3 - BKN 

4 = OVC 


5 - X 

6 = -SCT 

7 - -BKN 

8 - -OVC 

9 - -X 


The  characters 


are  1 e f t - jus t i f i ed  in  the  string. 


PT_CLDN  ( CLCX  ) 


Input  parameters: 
CLCX 

REAL 

Output  parameters: 
PT_CLDN 

CHAR 

Numeric  cloud  code 
Character  cloud  coverage 
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20.3  PT_CLDS  - COMPUTE  CLOUD  COVER  FOR  3 LEVELS 


This  character  function  converts 
coverage  into  packed  three-level 


packed  three-level  numeric  cloud 
character  cloud  coverage: 


CLDS  = PT__CLDS  ( CMBC  ) 


The  input  parameter  may  be  computed  using  PICjCMBC 
cloud  conversions  are:  * 


Th  e individual 


® “ (underscore) 

1 - C 

2 - S 

3 - B 

4-0 

5 - X 

6 - -S 

7 - -B 

8 - -O 

9 - -X 

EXAMPLE:  CMBC  - 263. 

PT_CLDS  - S-SB 

The  characters  are  lef t- jus t if i ed 

PT_CLDS  ( CMBC  ) 

Input  parameters: 

CMBC  REAL 


Output  parameters: 

PT_CLDS  CHAR* 


in  the  output  string. 

Combined  cloud  coverage 
Char  combined  cloud  coverage 
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20.4  PT_CMCL  - COMPUTE  COMBINED  HEIGHT  AND  COVER 


This  character  function  returns  the  character  value  for  the 
c omb  ined  cloud  height  and  cloud  coverage. 

CLDx  - PT__CMCL  ( COMx  ) 


The  input  value  COMx  may  be  computed 
coverage  using  the  function  P R — .COMX . 
in  hundreds  of  feet;  the  cloud  cover 


from  the  cloud  height  and 
The  output  height  is  given 
code  is  the  short  code: 


0 > _ (underscore) 


1 

> 

C 

2 

> 

s 

3 

> 

B 

4 

> 

0 

5 

> 

X 

6 

> 

-s 

7 

> 

-B 

8 

> 

-0 

9 

> 

-X 

Ex amp  1 e : 

COMX 

PT_CMCL  = 
The  characters  are  left 


1507  . 

150-B 

justified  in  the  string. 


PT_CMCL  ( COMX  ) 


Input  parameters: 

COMX  REAL 

Ou  t pu  t par  ame  t e r s : 

PT_CMCL  CHAR* 


Combined  height  & coverage 
Character  height  & coverage 
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20.5  PT_OCHR  - COMPUTE  OZONE  CHARACTER  CODE 


This  character  function  converts  a numeric  ozone  value  into  a 
character  code.  The  intervals  cover  5 units: 


0-4  a 

5-9  A 

10-14  b 


PT__OCHR  ( OZONE  ) 

I npu t par  ame  t e r s : 

OZONE  REAL 

Output  parameters: 

PT_OCHR  CHAR* 


Ozone  value 
Cha  racter  code 
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20.6  PT_JWTH  - COMPUTE  CHARACTER  PAST  WEATHER 


This  character  function  converts  a numeric  WMO  past  weather  code, 
PVWM , into  a character  weather  code: 

PWTH  = PT _PWTH  ( PVWM  ) 

The  values  for  the  numeric  values  are: 

0 = Cloud  covering  less  than  1/2  sky 

1 = Cloud  covering  more  than  1/2  sky  during  part  of  period 

and  less  than  1/2  during  part  of  period 

2 = Cloud  covering  more  than  1/2  sky 

3 = Sandstorm,  dust  storm  or  blowing  snow 

4 = Fog,  ice  fog,  thick  haze  or  thick  smoke 

5 = Drizzle 

6 = Rain 

7 = Snow,  mixed  rain  and  snow,  or  ice  pellets 

8 = S h owe  r s 

9 = Thunde r s t o rm  wi  th  or  without  precipitation 

The  conversion  is: 

0 = ' 

1 - ’ 

2  = ’ 

3 = BD 

4 - F 

PTJWTH  ( PVWM  ) 

Input  parameters: 

PVWM  REAL  Numeric  past  weather  code 

Output  parameters: 

PT_JPWTH  CHAR*  Character  past  weather 


5 = L 

6 = R 

7 - S 

8 = RW 

9 = T 
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20.7  PT_SALT  - COMPUTE  3 -CHARACTER  PRESSURE  CODE 


This  function  takes  a real  number  and  converts 
into  a 3-character  string.  Leading  blanks  are 
can  be  used  to  output  abbreviated  pressure  and 


the  integral  part 
changed  to  0 . It 
alt ime  ter  values. 


PT_SALT  ( RVAL  ) 


Input  parameters: 

RVAL  REAL 

Output  parameters: 

PT_SALT  CHAR* 


Va  1 u e 

Three-character  pressure  code 
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20.8  PT_WASH  - COMPUTE  ASHEVILLE  WEATHER  CODE 


This  character  function  converts  a real  number  which  represents 
an  Asheville  numeric  weather  code  into  a character  string: 


WASH  = PT_WASH  ( KWSH  ) 


The  numeric  code  is  stored  as  1234.567  where  the  conversions  for 
the  col umn  s are: 


Co  1 umn  1 : 

0 = None 

1 - R- 

2 - R 

3 - R+ 

4 - KW- 

5 - RW 

6 = RW+ 

7 - ZR- 

8 - ZR 

9 = ZR+ 

Co  1 umn  5 : 


Col umn  2 : 

0 = None 

1 - None 

2 = None 

3 = None 

4 = L- 

5 = L 

6 = L+ 

7 = ZL- 

8 = ZL 

9 « ZL+ 

Co  1 umn  6 : 


Column  3: 

0 = None 

1 - S- 

2 - S 

3 = S+ 

4 = SP- 

5 = SP 

6 = SP+ 

7 = none 

8 - IC 


Co lumn  7 : 


Column  4 : 

0 = None 

1 - SW- 

2 = SW 

3 = SW+ 

4 ==  None 

5 = None 

6 = None 

7 = SG- 

8 - SG 

9 = SG+ 


0 

1 

2 

3 

4 

5 

6 

7 

8 


None 

0 = None 

0 

= 

None 

IP- 

1 = F 

1 

K 

IP 

2 = IF 

2 

= 

H 

IP+ 

3 = GF 

3 

KH 

None 

4 = BD 

4 

= 

D 

A 

5 = BN 

5 

- 

BS 

None 

6 

* 

T 

None 

7 

= 

T+ 

AP 

8 

= 

TOR 

9 

= 

Q 

NOTE:  the  original  scheme  had  a sixth  value  in  col  7 for  blowing 

spray,  which  has  been  omitted.  The  weather  codes  for  6 
through  9 in  col umn  7 we  re  added  to  this  col umn  f r om  the 
original  col umn  1 . 


PT_WASH  ( RWSH  ) 

Input  parameters: 
RWSH 

REAL 

Asheville  numeric 

code 

Output  parameters: 
PT_WASH 

CHAR* 

Character  weather 

code 
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20.9  PT_WCOD  - COMPUTE  CHARACTER  WEATHER  CODE 

This  function  converts  a GEMPAK  numeric  weather  code,  WNUM, 
into  a character  code,  WCOD : 

V-COD  - PT_WCOD  ( WNUM  ) 

\MX)D  can  be  converted  to  WNUM  using  PT_WNUM. 


PT_V\COD  ( WNUM  ) 
Input  parameters: 


WNUM 

REAL 

Weather  number 

Output  parameters: 

PT_WCOD 

CHAR* 

Character  we  a t h e r 
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20.10  PT_WNUM  - COMPUTE  NUMERIC  WEATHER  CODE 

This  function  converts  any  character  weather  code  into  a 
weather  number,  WNUM: 

WNUM  - PT_WNUM  ( WTHR  ) 

WNUM  can  be  converted  to  a character  weather  code,  WCOD , 
the  function  PT.3COD.  The  range  of  numbers  which  might 
is  -3  to  512000. 

PT_WNUM  ( WTHR  ) 

Input  parameters: 

WTHR  CHAR*  Character  weather  str 

Output  parameters: 

PT_WNUM  REAL  Weather  number 


GEMPAK 


using 

result 


ing 
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20.11  PT_WSYM  - COMPUTE  WEATHER  SYMBOL  CODE 


This  function  converts  a character  weather  code,  WTHR , into 
a synoptic  numeric  code  for  the  weather  symbol  number,  which  is 
used  to  draw  weather  s ymb o 1 s . 

WSYM  = PT_WSYM  ( WTHR  ) 

The  conversion  that  is  used  is  based  upon  that  which  the  National 
Meteorological  Center  (NMC)  uses  to  convert  hourly  alphanumeric 
characters  to  the  synoptic  weather  code.  This  conversion  is  shown 
in  the  following  table.  Note  that  some  GEMPAK  codes  have  been  added 
Ihese  are  denoted  in  lower  case.  Also  note,  10  has  been  added  to 


4 

5 

6 
7 

10 

12 

17 

18 
19 
34 

38 

39 
51 
53 

55 

56 

57 

58 

59 
61 
63 

65 

66 

67 

68 
69 


K 

KH  HK  H 
KD  HD  d 
BD  BN  N BY 
KF  HF  F IF 
GF  HGF 
T+  T 

q 

TORNA  FUNNE  WATER 
bd  + 

BS 
bs  + 

L- 

L LS 
L+ 

ZL-  ZLW- 
ZL+  ZL 
R-L-  L-R- 
RL  L+R+  LR 
R- 
R 

R+ 

ZR-  ZRW- 
ZR+  ZR 

L-S-  R-S-  r+s- 
L+S+  R+S+  RS  r 


e snow 

case  as  a convention. 

71  - 

S- 

73  - 

S 

75  = 

s+ 

76  - 

IC 

77  = 

SGW  SG  SGW- 

79  - 

IP  R-IP 

80  - 

RW- 

81  = 

RW+  RW 

83  - 

RW  - S 

84  = 

RWSW  RW+S 

85  = 

SW- 

86  = 

SW+  SW 

87  - 

AP-  IPW-  SPW-  SP- 

88  = 

AP+  SPW  AP  IPW  IPW+  SP 

89  = 

RW-A  A- 

90  - 

RW+A  A A+  RWA 

95  = 

TRW  RT  TR  TRW-  T-R 

96  - 

T-A  TA  t rwa  t rw-  a 

97  = 

TRW+  T+R  tr+ 

98  - 

TBN  TBD  T+BN  T+BD  tD 

99  - 

T+A  trw+a 

105  = 

T-S  TSW  TSW-  TS 

107  = 

TSW+  T+RS  T+S 

r - s 
s + 


r s - 


PT_WSYM  ( WTHR  ) 

Input  parameters: 

WTHR  CHAR* 

Output  parameters: 

PT_WSYM  REAL 


Character  weather  code 


Numeric  weather  code 
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20.12  PT_WTHR  - COMPUTE  OLD  CHARACTER  WEATHER 


This  character  function  converts  a numeric  weather  code,  W604 , 
into  a character  string,  WTHR: 

WTHR  - PT_WTHR  ( W604  ) 

W604  was  a numeric  weather  code  used  with  an  old  604  data  ingest 
system  in  which  64  unique  weather  reports  were  recognized. 

The  conversion  is: 


0 

= 

9 9 

22 

= 

L+ 

44 

= 

R+S 

1 

b 

T 

23 

B 

SP 

45 

- 

RS- 

2 

b 

R 

24 

B 

SG 

46 

RS  + 

3 

- 

S 

25 

B 

BY 

47 

* 

ZL- 

4 

- 

F 

26 

B 

BN 

48 

- 

ZL+ 

5 

= 

H 

27 

B 

BD 

49 

- 

TSW 

6 

B 

K 

28 

B 

IF 

50 

- 

TSW- 

7 

xs 

L 

29 

B 

RS 

51 

- 

TSW+ 

8 

B 

R+ 

30 

B 

TRW 

52 

- 

TRW- 

9 

» 

R- 

31 

B 

TR- 

53 

- 

TRW+ 

10 

B 

S+ 

32 

B 

TR+ 

54 

- 

TRWA 

11 

B 

s- 

33 

= 

TS- 

55 

- 

R-S- 

12 

B 

RW 

34 

B 

TS+ 

56 

- 

R-S  + 

13 

B 

SW 

35 

B 

ZR- 

57 

- 

R+S- 

14 

B 

TR 

36 

B 

ZR+ 

58 

- 

R+S  + 

15 

B 

TS 

37 

B 

sw- 

59 

- 

TRW+A 

16 

B 

ZL 

38 

B 

SW+ 

60 

- 

TRW- A 

17 

- 

ZR 

39 

B 

SG- 

61 

- 

TORNA 

18 

B 

IP 

40 

- 

SG+ 

62 

- 

FUNNE 

19 

B 

GF 

41 

B 

RW- 

63 

- 

WATER 

20 

B 

BS 

42 

B 

RW+ 

21 

B 

L- 

43 

B 

R-S 

WTHR  can  be  converted  to  W604  using  the  function  PT_W604 . 

PT_WTHR  ( W604  ) 

Input  parameters: 

W604  REAL 

Output  parameters: 

PT_WTHR  CHAR* 


Numeric  weather  code 
Character  weather  code 
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20.13  PT_WTMO  - COMPUTE  WO  CHARACTER  WEATHER 


This  character  function  converts  a numeric  \\MO  weather  code, 
Wi\MO,  into  a character  code: 


WTMO  = PT_WTMO  ( WvMVIO  ) 


The  conversion  is: 


0 - 34  - 

1 - 35  = 

2 — 36  - 

3 - 37  - 

4 - K 38  - 

5 - H 39  - 

6 - D 40  - 

7 - BD  41= 

8 = BD  42  = 

9 = BD  43  - 

10  = F-  44  = 

11  = GF  45  = 

12  = GF  46  = 

13  = 47  = 

14  = 48  = 

15  - 49  = 

16  - 50  = 

17  = T 51  = 

18  = Q 52  = 

19  = FUNNE  53  = 

20  = 54  = 

21  - 55  = 

22  = 56  = 

23  = 57  = 

24  = 58  - 

25  = 59  = 

26  = 60  = 

27  = 61  - 

28  = 62  = 

29  = 63  = 

30  = BD  64  - 

31  = BD  65  = 

32  = BD  66  = 

33  = BD+ 


PT_WTMO  ( WMMO  ) 

Input  parameters: 

WWMO  REAL 

Output  parameters: 

PT_WTMO  CHAR* 


BD+ 

67 

= ZR 

BD+ 

68 

= R-S- 

BS 

69 

- RS 

BS  + 

70 

= S- 

BS 

71 

- s- 

BS+ 

72 

- s 

73 

- s 

F 

74 

= s+ 

F 

75 

= s+ 

F 

76 

- IN 

F 

77 

- SG 

F 

78 

= s- 

F 

79 

= IP 

F 

80 

= RW- 

F 

81 

= RW 

F 

82 

= RW+ 

L- 

83 

= RW-SW- 

L- 

84 

= RWSW 

L- 

85 

= sw- 

L 

86 

= sw 

L+ 

87 

- SP- 

L+ 

88 

= SP 

ZL- 

89 

= A- 

ZL 

90 

= A 

R-L- 

91 

= R- 

RL 

92 

= R 

R- 

93 

= RS 

R- 

94 

= R+S+ 

R 

95 

= TRW- 

R 

96 

= TRW- A 

R+ 

97 

= TRW+ 

R+ 

98 

= TD 

ZR- 

99 

= TRW+A 

Numeric  weather  code 
Ch  a r a c t e r we  ather  code 
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20.14  PT_W6 0 4 - COMPUTE  OLD  NUMERIC  WEATHER 


This  function  converts  a character  weather  code 
a numeric  code,  W604: 


WTHR , 


into 


W604  = PT_W604  ( WTHR  ) 


The 


c onve  r s i on  is: 
0 = * ’ 

1 = T 

2 = R 

3 - S 

4 - F 


5 

H 

6 

- 

K 

7 

* 

L 

8 

= 

R+ 

9 

- 

R- 

10 

S+ 

11 

* 

s- 

12 

- 

RW 

13 

= 

sw 

14 

TR 

15 

- 

TS 

16 

ZL 

17 

- 

ZR 

18 

» 

IP 

19 

* 

GF 

20 

* 

BS 

21 

* 

L- 

22 

= 

L+ 

23 

— 

SP 

24 

SG 

25 

= 

BY 

26 

= 

BN 

27 

= 

BD 

28 

= 

IF 

29 

= 

RS 

30 

= 

TRW 

31 

= 

TR- 

32 

= 

TR+ 

33 

= 

TS- 

34 

TS  + 

35 

= 

ZR- 

36 

ZR+ 

37 

- 

SW- 

38 

= 

SW+ 

39 

* 

SG- 

40 

= 

SG+ 

41 

= 

RW- 

42 

X= 

RW+ 

43 

= 

R-S 

44 

R+S 

45 

= 

RS- 

46 

= 

RS  + 

47 

= 

ZL- 

48 

= 

ZL+ 

49 

= 

TSW 

50 

TSW- 

51 

= 

TSW+ 

52 

TRW- 

53 

TRW+ 

54 

= 

TRWA 

55 

* 

R-S- 

56 

R-S  + 

57 

= 

R+S- 

58 

= 

R+S  + 

59 

s 

TRW+A 

60 

= 

TRW- A 

61 

ax 

TORNA 

62 

= 

FUNNE 

63 

= 

WATER 

W604  can  be  converted  to  WTHR  using  the  function  PT_WTHR 


PT_W604  ( WTHR  ) 


Input  parameters: 
WTHR 


CHAR* 


Character  weather  code 


Output  parameters: 

PT_WTHR  REAL 


Numeric  weather  code 
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CHAPTER  21 

AIRWAYS  DECODER  (RA)  LIBRARY 


RAJCHCK  Check  for  time  and  station  in  file 

RA^JCLEV  Process  cloud  information 

RA^JDECD  Decode  airways  report 

RA^jGFLD  Break  report  into  fields 

RAjGRPT  Get  report  from  bulletin 

RA^RHDR  Get  header  information 

RA^_RTIM  Get  report  time 

RAJMST  Set  time  and  station 
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Surface  Airways  Decoder  (RA)  Library  Summary 


The  RA  library  contains  subroutines  to  decode  and  store  surface 
a i rways  reports . 

The  airways  decoder  must  have  access  to  individual  airways  reports. 
RA^GRPT  extracts  reports  from  bulletins. 

Before  the  report  can  be  decoded,  the  subroutine  RA—GFLD  must  be 
called.  This  subroutine  breaks  the  report  into  parts  and  saves 
them  in  a common  area  which  can  be  accessed  by  the  other  subroutines 
RA^_RHDR  can  then  be  called  to  get  the  report  header  info  rma  t i o n . 
RAJ3ECD  decodes  the  rest  of  the  bulletin. 

The  decoder,  DCSURF , is  a realtime  decoder  which  can  be  used  as  an 
e x amp  1 e . 


ERROR  MESSAGES: 


In  general,  the  errors  encountered  in  the  RA  library  are  not 
fatal  to  continued  execution,  but  just  flag  a problem  with  a 
particular  report.  Thus,  it  seems  unlikely  that  a programmer  will 
want  to  print  a message  every  time  the  return  code  is  non-zero. 
However,  the  return  code  values  are  summarized  here  as  an  aid  to 
program  development. 


[RA  -1] 
[RA  -2] 
[RA  -3] 
[RA  -4] 
[RA  -5] 
[RA  -6] 


The  time  is  invalid. 

There  are  no  mo  re  reports. 

No  wind  group  was  found. 

The  time  cannot  be  set. 

The  station  cannot  be  set. 

The  report  cannot  be  decoded. 
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RA  Library  Calls 


RAJCHCK 

C isffln. 

da  1 1 im. 

s t i d , / 

t imf  1 g , 

s tnf 1 g , 

da  t f 1 g , 

i r e t ) 

RA^CLEV 

( cldtyp, 

c 1 dhg  t , 

nc  Id  , / 

chc 1 , chc2 , chc  3 

, i r e t 

) 

RAJDECD 

( irpntr,  coun,  maxcld,  / 
wood,  wnum,  pres,  tmpf , 
i r e t ) 

cldtyp,  cl dhg  t , 
dwpf , sknt , dr  c t 

ncld,  vsby, 

, gust,  alti, 

RA—GFLD 

C report, 

lcnr  , / 

i r e t ) 

RAJ3RPT 

( bul t in , 

1 enb  , / 

i bpn  t , 

repor  t , 

lenr,  i re  t ) 

RA^RHDR 

( / irpntr 
i r e t ) 

, s t i d , 

rpt  typ , 

c o r f 1 g , 

au  t o t p , 

i hou r , 

imi  nu  t , 

RA^RTIM 

( i sd  t a r , 

b t ime  , 

i r hou r , 

i rmi  n , / 

i rdt  ar  , 

r t ime  , 

i ret  ) 

RA^TMST 

( isffln, 

d a t t im, 

stid,  addstn,  cirflg,  / 

d a t f 1 g , 

i r e t ) 
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21.1  RA_CHCK  - CHECK  FOR  TIME  AND  STATION  IN  FILE 


This  subroutine  checks  to  see  if  a time  and  station  are  already  in 
the  surface  file.  If  the  time  and/or  station  is  not  found,  the 
logical  variables  TIMFLG  and/or  STNFLG  is  set  to  false.  If  both 
the  time  and  station  are  found,  datflg  will  be  true  if  data  for 
this  station  has  already  been  added  to  the  file. 

RA^JCHCK  ( ISFFLN,  DATTIM,  STID,  TIMFLG,  STNFLG,  DATFLG,  IRET  ) 
Input  parameters: 

ISFFLN  INTEGER  Sounding  file  number 

DATTIM  CHAR*15  Nominal  date/time 

STID  CHAR*  Station  identifier 

Output  parameters: 

TIMFLG  LOGICAL  Time  found  flag 

STNFLG  LOGICAL  Station  found  flag 

DATFLG  LOGICAL  Data  already  in  file  flag 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
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21.2  RA^CLEV  - PROCESS  CLOUD  INFORMATION 

This  subroutine  uses  the  cloud  information  decoded  fr  om  an  a i rwa  y s 
report  and  returns  it  encoded  in  three  c omb ined  cloud  height 
and  coverage  reports.  If  -X  ( partially  obscured  ) is  reported, 
1000  is  added  to  the  first  report.  The  combined  value  is  the 
height  * 10  + coverage. 

RA^jCLEV  ( CLDTYP , CLDHGT , NCLD , CHC1  , CHC2  , CHC3 , I RET  ) 

Input  parameters: 


CLDTYP 

(NCLD) 

REAL 

GEMPAK  cloud 

types 

CLDHGT 

(NCLD) 

REAL 

Cl  oud  height 

in  hundreds  of  feet 

NCLD 

INTEGER 

Number  of  cloud  reports 

; pu  t par  ame  t e r s : 

CHCl 

REAL 

Cl oud  report 

1 

CHC2 

REAL 

Cl  oud  report 

2 

CHC3 

REAL 

Cloud  report 

3 

IRET 

INTEGER 

Re  turn  code 

0 = normal 

return 
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21.3  RAJDECD  - DECODE  AIRWAYS  REPORT 


This  subroutine  decodes  a surface  airways  report.  RA^_GFLD  must 
be  called  before  this  subroutine  is  called.  IRPNTR  must  point 
to  the  first  field  after  the  header. 


RAJDECD  ( 

IRPNTR, 

COUN,  MAXCLD,  CLDTYP,  CLDHGT,  NCLD,  VS BY, 

VCOD,  WNUM,  PRES, 

TMPF,  DWPF,  SKNT,  DRCT,  GUST,  ALT I 

I RET  ) 

Input  parameters: 

IRPNTR 

INTEGER 

First  field  after  header 

COUN 

CHAR* 

Country  name 

MAXCLD 

INTEGER 

Maximum  number  of  clouds 

Ou  t pu  t par  ame  ters  : 

CLDTYP 

(NCLD) 

REAL 

GEMPAK  cloud  numeric  types 

CLDHGT 

(NCLD) 

REAL 

Cloud  heights 

NCLD 

INTEGER 

Number  of  cloud  reports 

VS  BY 

REAL 

Visibility  in  miles 

WCOD 

CHAR* 

GEMPAK  we ather  code 

WNUM 

REAL 

GEMPAK  weather  number 

PRES 

REAL 

Pressure  in  millibars 

TMPF 

REAL 

T emp erature  in  F 

IXVPF 

REAL 

Dewpoint  temp  in  F 

SKNT 

REAL 

Wind  speed  in  knots 

DRCT 

REAL 

Wind  direction  in  degrees 

GUST 

REAL 

Wind  gusts  in  knots 

ALT  I 

REAL 

Altimeter  in  inches 

I RET 

INTEGER 

Return  code 

0 - n o rma  1 return 

-6  - report  not  decoded 
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21.4  RA_GFLD  - BREAK  REPORT  INTO  FIELDS 


This  subroutine  divides  a surface  airways  report  into  individual 
fields  for  decoding.  Fields  must  be  separated  by  blanks  or 
slashes.  Numbers  and  non-numeric  strings  are  stored  in  separate 
fields.  A slash  is  considered  a separate  field.  Unprintable 
characters  mu st  be  replaced  by  blanks  before  this  subroutine  is 
called.  The  fields  are  stored  in  / RACMN  / . 

RA_GFLD  ( REPORT,  LENR , I RET  ) 

Input  parameters: 

REPORT  CHAR*  AIRWAYS  report 

LENR  INTEGER  Length  of  report 

Output  par  ame  t e r s : 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  - invalid  report 
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21.5  RA_GRPT  - GET  REPORT  FROM  BULLETIN 


This  subroutine  gets  the  next  report  from  a surface  bulletin. 
Reports  must  begin  with  the  control  character,  RS  ( - 30  ). 

RA^_GRPT  ( BULTIN,  LENB , IBPNT,  REPORT,  LENR , I RET  ) 

Input  parameters: 

BULTIN  CHAR*  Bulletin 

LENB  INTEGER  Bulletin  length 

Input  and  Output  parameters: 

IBPNT  INTEGER  Pointer  in  bulletin 


Output  parameters: 

REPORT  CHAR*  Report 

LENR  INTEGER  Length  of  report 

IRET  INTEGER  Return  code 

0 = n o rma  1 return 
-2  = no  more  reports 
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21.6  RA^RHDR 

This  subroutine  ge 

report  . 

RA_RHDR  ( I RPNTR , 
I RET  ) 

Ou  t pu  t par  ame  t e r s : 
I RPNTR 
STID 
RPTTYP 
CORFLG 
AUTOTP 
I HOUR 
IMINUT 
I RET 


GET  HEADER  INFORMATION 


s the  header  information  from  an  airways 


STID,  RPTTYP,  CORFLG,  AUTOTP,  IHOUR,  IMINUT, 


INTEGER 

CHAR* 

CHAR* 

LOGICAL 

CHAR* 

INTEGER 

INTEGER 

INTEGER 


First  field  after  header 
Station  identif ier 
Report  type 
Correction  flag 
Automatic  station  type 
Hour 
Minute 
Return  code 

0 — n o rma  1 return 
- 2 - i n c omp lete  report 
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21.7  RAJtTIM  - GET  REPORT  TIME 


This 
t ime 
hour 
t ime 
and 


subroutine  combines  an  integer  system  time,  the  bulletin 
containing  the  day,  month  and  hour  and  the  report  day  and 
into  an  observation  time.  It  is  assumed  that  the  system 
accurately  reflects  the  year  and  month  of  the  observation 
is  later  than  that  time. 


RA^RTIM  ( I SDTAR , BTIME,  IRHOUR,  IRMIN,  IRDTAR,  RTIME,  I RET  ) 


Input  parameters: 

I SDTAR  (5) 

INTEGER 

BTIME 

CHAR* 

IRHOUR 

INTEGER 

IRMIN 

INTEGER 

Output  parameters: 

IRDTAR  (5) 

INTEGER 

RTIME 

CHAR* 

I RET 

INTEGER 

Sy  s t em  t ime 

Bulletin  day,  hour,  minute 
Report  hour 
Report  mi  nu  t e 

Integer  report  time 
Report  date/time 
Return  code 

0 - n o rma 1 return 
-1  ■«  invalid  time 
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21.8  RA—TMST  - SET  TIME  AND  STATION 


This  subroutine  sets  the  time  and  station  in  a surface  data  file. 
If  the  station  has  already  reported,  the  flag  DATFLG  is  set. 

A station  not  already  in  the  file  will  be  added  only  if  ADDSTN  is 
set.  A time  not  already  in  the  file  will  be  added  if  there  is 
room.  If  there  is  no  room  and  CIRFLG  is  set,  the  earliest  time 
in  the  file  will  be  deleted. 

RA^JIMST  ( ISFFLN,  DATTIM,  STID,  ADDSTN,  CIRFLG,  DATFLG,  IRET  ) 


Input  parameters 


ISFFLN 

INTEGER 

DATTIM 

CHAR* 1 5 

STID 

CHAR* 

ADDSTN 

LOGICAL 

CIRFLG 

LOGICAL 

;pu t par  ame  t e r s : 

DATFLG 

LOGICAL 

IRET 

INTEGER 

Sounding  file  number 
Nominal  date/time 
Station  identifier 
Add  station  flag 
Circular  file  flag 


Data  already  in  file  flag 
Re  turn  code 

0 - normal  return 
-4  = time  cannot  be  set 
-5  = station  cannot  be  set 
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RU_J£>JT 

RU__DCD2 

RU__DECD 

RU_GRPT 

RU_JITIM 

RU_SHDR 


Adjust  time  to  nearest  3 hours 
Decode  and  write  report 
Decode  and  write  report 
Get  report  fr om  bul letin 
Compute  observation  time 
Decode  upper-air  header 
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Upper  Air  Decoder  (RU)  Library  Summary 


The  RU  library  contains  subroutines  to  decode  and  store  upper-air 
reports.  TT  and  PP  reports  of  all  types  may  be  decoded.  Output 
can  be  written  to  a GEMPAK  unmerged  sounding  data  set. 

An  upper-air  decoder  program  must  have  access  to  bulletins  of 
upper-air  data.  Given  an  upper-air  bulletin,  RU_GRPT  extracts 
reports.  RU_SHDR  reads  the  report  header,  returning  the  station 
number  and  report  day  and  hour.  RU_J)ECD  decodes  the  report  and 
writes  the  output  to  a previously  opened  file.  RU_J3CD2  is  a newer 
version  of  RU_JDECD  which  includes  the  parameter  ADDSTN.  If  ADDSTN 
is  raise,  reporting  stations  not  included  in  the  output  file  will 

be  added  to  it.  RUJ)ECD  always  adds  these  stations  to  the  file 
it  there  is  ro  om  * 


Several  subroutines  are  available  to  process  the  time,  since  it  is 
necessary  to  store  a full  date/time  field  in  the  data  set.  RU  RTIM 
combines  a system  or  data  reception  time  with  the  report  day  and  hour 
to  generate  an  observation  time.  RU_JU3JT  can  be  used  to  adjust  the 
time  to  the  nearest  3-hour  interval. 

The  decoded  output  is  in  the  order  expected  by  an  unmerged  sounding 

and  pprr  by  SN-WPRT;  ,wblch  writes  the  data  to  a file.  Data  from  PPAA 
nd  PPCC  reports  will  be  merged  with  mandatory  data  or  stored  as 
mandatory  data  without  temperature,  dewpoint  or  height.  Significant 

416  storedwith  a fla2  indicating  whether  the  levels  are 
g or  pressure.  If  both  height  and  pressure  data  are  received 
tor  a station,  only  the  most  recent  are  saved. 


ERROR  MESSAGES: 


!°  ™n?ral ’/he  errors  encountered  in  the  RU  library  are  not  fatal 

r.-ort  lnThn  exeJutl0n*  but  ->ust  flag  a problem  with  a particular 
report.  Thus,  it  seems  unlikely  that  a programmer  will  want  to 

? " a“r!^f  !!?,'LUme  thC  retUm  code  is  non-zero.  However, 


No  more  input  (substring,  report,  bulletin). 

No  data  found* 

Invalid  character  group. 

Error  in  setting  station. 

End  of  report. 

Error  xx  in  SN_GTIM. 

Error  xx  in  SN_JDTIM. 

Error  xx  in  SN_ATIM  after  a time  has  been  deleted 


deve 1 opment , 

[RA 

-1] 

[RA 

-2] 

[RA 

-3] 

[RA 

-4] 

[RA 

-5] 

[RA 

xx-500] 

[RA 

xx-600  j 

[RA 

xx - 700  j 
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23.34  SF_WSDD  - WRITE  TO  SHIP  FILE 


This  subroutine  adds  a station  header  and  station  data  to  a 
ship  surface  data  file. 


SF_WSDD 


ISFFLN,  DATTIM,  STID,  ISTNM,  SLAT,  SLON,  SELV,  STAT, 
COUN,  IHHMM,  SFDATA,  IRET  ) 


Input  parameters: 

ISFFLN 

INTEGER 

DATTIM 

CHAR* 

STID 

CHAR *4 

ISTNM 

INTEGER 

SLAT 

REAL 

SLON 

REAL 

SELV 

REAL 

STAT 

CHAR*  2 

COUN 

CHAR*  2 

IHHMM 

INTEGER 

SFDATA  (NPARM) 

REAL 

Output  parameters: 

IRET 

INTEGER 

Surface  file  number 
GEMPAK  t ime 
Station  identifier 
Station  number 
Station  latitude 
Station  longitude 
Station  elevation 
State 
Coun  try 

Station  time  (HHMM) 


S t a t i o 

n data 

Return 

code 

0 = 

normal  return 

-3  = 

file  not  open 

-5  = 

too  many  reports 

-12  = 

DM  error 

-20  = 

i n va lid  t ime 

-21  = 

not  single  dim  file 
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[RA  xx-800] 
[RA  xx-900] 


Error  xx  in  SN_JYTIM. 
Error  xx  in  SN_WPRT. 
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RU_ADJT 

RU_DCD2 

RU__DECD 

RU_GRPT 
RU_RT  IM 
RU_SHDR 


RU  Library  Calls 
( iotarr  , / datt im,  i ret  ) 

( isnfln,  dattim,  is  turn,  part,  itopwn,  wnknot 
report,  lenr,  addstn,  / irpnt,  / iret  ) 

( isnfln,  dattim,  istnm,  part,  itopwn,  wnknot 
report,  lenr,  / irpnt,  / iret  ) 

C bultin,  1 enb , / ibpnt,  / report,  lenr,  iret 

C isdtar,  irday,  irhour,  / iodtar,  iret  ) 

( report,  lenr,  / irpnt,  / part,  istnm,  iday, 

wnknot,  itopwn,  iret  ) 


, i hhmm, 
, i hhmm, 
) 

i h ou  r , 


22-4 


UPPER-AIR  DECODER  (RU)  LIBRARY 


22.1  RU_ADJT 


- ADJUST  TIME  TO  NEAREST  3 HOURS 


This  subroutine  adjusts  the  time  to  the  nearest 
RU_J\DJT  ( IOTARR , DATTIM,  IRET  ) 


3-hour ly 


interval . 


Input  parameters: 
IOTARR  (5) 


INTEGER 


Observation  time 


Output  parameters: 
DATTIM 
IRET 


CHAR* 

INTEGER 


GEMPAK  time  rounded  to  3 hours 
Return  code 

0 - n o rma  1 return 
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22.2  RU_DCD2  - DECODE  AND  WRITE  REPORT 


his  subroutine  decodes  a single  upper  air  report  and  writes  the 
data  to  a file.  The  header  information  and  DATTIMmust  be  found 

"e  is  called-  IRPNTmust  point  to  the  first 
eld  after  the  header.  This  subroutine  may  be  used  for  either 
real-time  or  archived  data.  Unlike  RU_DECD , this  subroutine  has 
an  input  parameter  ADDSTN  which  is  a flag  to  indicate  whether 
new  reporting  stations  should  be  added  to  the  file. 

RU_DCD2  ( ISNFLN,  DATTIM,  I STNM,  PART.  ITOPWN.  WNKNOT,  IHHNM 
REPORT,  LENR , ADDSTN,  IRPNT , I RET  ) 


Input  parameters: 
I SNFLN 
DATTIM 
I STNM 
PART 
ITOPWN 
WNKNOT 
I HI  Bvflvl 
REPORT 
LENR 
ADDSTN 


INTEGER 

CHAR* 15 

INTEGER 

CHAR*  4 

INTEGER 

LOGICAL 

INTEGER 

CHAR* 

INTEGER 

LOGICAL 


Input  and  output  parameters: 
IRPNT  INTEGER 


Output  parameters: 
I RET 


INTEGER 


Sounding  file  number 
Observation  time 
Station  number 
Part  n ame 

Top  level  reporting  winds 
Flag  for  wind  in  knots 
Actual  hour/minute  of  report 
Report 

Length  of  report 
Add  new  stations  flag 

Pointer  to  next  field 

Return  code 

0 - normal  return 
-2  — no  data  found 
-4  - error  in  setting  station 
xx  - 900  - error  xx  in  SN_JVPRT 
xx  - 500  to  xx  - 800  see  RU__TMST 
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22.3  RU_DECD  - DECODE  AND  WRITE  REPORT 


This  subroutine  decodes  a single  upper  a 1 r r * AXTT^mu  be  * f ound 
data  to  a file.  The  header  information  and  DATTIM  must  be  fo 
before  this  subroutine  is  called.  IRPNT  must  point  to  the  first 
field  after  the  header.  This  subroutine  may  be  used  for  e ther 
real-time  or  archived  data.  Note  that  this  subroutine  unlike 
RU_DECD , has  no  ADDSTN  option.  Any  reporting  station  which  1S 
already  in  the  sounding  file  will  be  added  to  it  1 t ere  is 

RU_JDECD  C ISNFLN.  DATTIM,  ISTNM,  PART,  ITOPWN,  WNKNOT , IHHMM, 
REPORT,  LENR , IRPNT,  I RET  ) 


I SNFLN 
DATTIM 
ISTNM 
PART 
ITOPWN 
WNKNOT 
IHHMM 
REPORT 
LENR 


INTEGER 

CHAR* 

INTEGER 

CHAR*  4 

INTEGER 

LOGICAL 

INTEGER 

CHAR* 

INTEGER 


Input  parameters: 


Sounding  file  number 
Observation  time 
Station  number 
Part  n ame 

Top  level  reporting  winds 
Flag  for  wind  in  knots 
Actual  hour/minute  of  report 
Report 

Length  of  report 


Input  and  output  parameters: 
IRPNT  INTEGER 


Pointer  to  next  field 


Output  parameters: 

I RET  INTEGER 


Return  code 

0 = normal  return 
-2  - no  data  found 
-4  = error  in  setting  station 
xx  - 900  = error  xx  in  SN__WPRT 
xx  - 500  to  xx  - 800  see  RU_TMST 
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22.4  RU_GRPT  - GET  REPORT  FROM  BULLETIN 


Th is  subroutine  finds  the  next 
Upon  entry,  IBPNT  points  to  the 
The  report  returned  will  begin 
terminate  with  -,  the  start  of 
the  bulletin. 


report  in  an  upper-air  bulletin. 

character  to  begin  the  search, 
with  TT,  PP,  or  UU  and  will 
another  report,  or  the  end  of 


RU_GRPT  ( BULTIN,  LENB , IBPNT,  REPORT,  LENR , I RET  ) 


Input  parameters: 

BULTIN  CHAR* 

LENB  INTEGER 

Input  and  output  parameters: 
IBPNT  INTEGER 

Output  parameters: 

REPORT  CHAR* 

LENR  INTEGER 

IR£T  INTEGER 


Upper-air  bulletin 
Length  of  bulletin 


Pointer  in  bulletin 


Report 

Length  of  report 
Return  code 

0 - normal  return 
- 1 -no  mo  re  reports 
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22.5  RU_RTIM  - COMPUTE  OBSERVATION  TIME 


This  subroutine  combines  an  integer  system  time  *h'h” 

t-,r,tmra‘c-a-.r::n::;r,^rume':t^  ,P0 

received,  and  is  later  than  the  actual  report  time  U.e., 
the  observation  was  made). 

RU RT  IM  C ISDTAR,  IRDAY,  IRHOUR,  IODTAR,  I RET  ) 


Input  parameters: 

ISDTAR  (5)  INTEGER 
IRDAY  INTEGER 
IRHOUR  INTEGER 


System  time 
Report  day 
Report  hour 


Output  parameters: 

IODTAR  C 5 ) INTEGER 

jrET  INTEGER 


Observation  date/time 
Return  code 

0 - normal  return 


port 

the 

r t wa  s 
the  time 
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2 2.6  RU_SHDR 


- DECODE  UPPER -AIR  HEADER 


This  subroutine  de 
report.  The  field 
time  and  the  stati 
TTAA  data  and  the 
points  to  the  firs 


codes  the  header  from  an 
s after  IRPNT  are  the  par 
on  number.  TOPWND  is  the 
tens  digit  for  TTCC  data, 
t field  after  the  station 


upper-air  TT  or  PP 
t type,  the  station 
hundreds  digit  for 
On  return,  IRPNT 
numbe  r . 


RU_SHDR 


( REPORT, 
ITOPWN, 


LENR,  IRPNT,  PART,  ISTNM, 
I RET  ) 


I DAY , I HOUR , WNKNOT , 


Input  pa  r ame  t e r s : 

REPORT  CHAR* 

LENR  INTEGER 


Station  report 
Length  of  report 


Input  and  output  parameters 


IRPNT 

INTEGER 

tpu  t par  ame  t e r s : 

PART 

CHAR*  4 

ISTNM 

INTEGER 

I DAY 

INTEGER 

I HOUR 

INTEGER 

WNKNOT 

LOG  I CAL 

ITOPWN 

REAL 

I RET 

INTEGER 

Pointer  within  report 


Part  name 

Station  number 

Observation  day 

Observation  hour 

Flag  for  speed  in  knots 

Pressure  for  last  wind  report 

Return  code 

0 - no rma  1 return 
- 2 — no  repo  r t 
-3  = invalid  group 
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SF.JVSTN 

SF __ATIM 

SF_3EGS 

SF_CCLF 

SF_CCLP 

SF_CLOS 

SF_CREF 

SF_CRFP 

SF_CSDF 

SF_CSDP 

SF _DDAT 

SF_DSTN 

SF_J)TIM 

SF_FSTN 

SF FTIM 

SF_GTIM 

SF_OPNF 

SF_OPNR 

SF_QDAT 

SF_QSTN 

SF_RDAT 

SF SNXT 

SF SSTN 

SF STAT 

SF ST  IM 

SF STNF 

SF STST 

SF_TNXT 

SF_TSTN 

SF_TTIM 

SF_UARE 

SF_USTN 

SF_WDAT 

SF_WSDD 


Ad  d stations 

Add  t ime 

Reset  search 

Create  cl  ima  t e file 

Create  packed  climate  file 

Close  surface  file 

Create  standard  file 

Create  packed  standard  file 

Create  ship  file 

Create  packed  ship  file 

Delete  data 

Delete  station 

Delete  t ime 

Find  station 

Find  time 

Get  list  of  times 

Open  surface  file 

Open  real-time  surface  file 

Check  for  data 

Get  station  information 

Read  data 

Set  next  station 

Set  particular  station 

Set  a state/country 

Set  t ime 

Add  stations  from  table  file 

Get  stations  in  state 

Set  next  time 

Set  station 

Set  t ime 

Set  station  search 
Update  station  information 
Wr  i t e data 
Wr  ite  to  ship  file 
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Surface  (SF)  Library  S unxna r y 


GEMPA^rIuCf  Ub"ary  subroutines  allow  the  programmer  to  access 

observations*^  Surface  files  con t a i n me  t e o r o 1 og  i c a 1 

obseryations  from  many  locations  for  different  times.  The  library 

d cb  crea,e  and  open  fues  “d  '•*« « «**• 


There 
files 
t ime  s 
t ime  s 
whi  ch 
s t a t i on 


arStaJd!rHt?' °i  surface.files:  standard,  climate,  and  ship 
dard  files  have  stations  as  columns  in  the  file  and 

n the  rows.  Climate  data  sets  have  stations  in  rows  and 
in  the  columns.  Ship  files,  which  are  used  for  reports 

arand°ttimer°TJiXed,-0Cati0nS’  Wi  1 1 haVe  a sin2le  row  with  the 
and  time  information  in  the  same  header.  The  type  of  file 


:hS  d\\ermined  by  thC  subrout  in®  used  to  create  the  file.  Note 

J,re  are  two  subroutines  for  each  type  of  file*  one  sends  all 
he  information  about  the  file  and  the  other  reads  a ’ pa ck i ng f i 1 e 

file  EaU  1^f°5mati;on  about  the  parameters  to  be  included^n  the 
EaCJ  °f.thC  thrce  tyPes  of  fHes  can  be  opened  and  the  data 
used  ? ™ USing  subrout ines  SF_OPNF  and  SF_RDAT.  SFWDAT  can  be 

^iv:Qziiili%VundAtd  or  ciimate  nies;  sf-wsdd  - 


The  foil  owing 
types : 


table  shows  the  subroutines  used  with  the  three 


file 


TYPE 


CREATE 


CREATE -PACK 


WRITE 


s t and  a rd 
c 1 ima  t e 
ship 


SF_CREF 

SF_CCLF 

SF_CSDF 


SF__CRFP 

SF_CCLP 

SF_CSDP 


SF_\VDAT 

SF_WDAT 

SF_WSDD 


been  included  in  the  appendix  for  easy  reference7  tMFlli  fi*!,.* 

cave  °pen-  llmx™  ^ -iiii: 

CI  OI  times  that  can  be  saved  in  a GEMPAlf  f ; i ^ *ri. 
number  of  stations  is  I I qtft  \l  otMPAK  flle-  The  maximum 
is  MMPARM.  LLSTFL  and  the  maximum  number  of  parameters 


After  a file  is  opened, 
before  data  can  be  read 
subroutines  that  perform  this 


both  the  time  and  station  must  be 
or  written.  There  are  two  groups 
function. 


selected 

of 


23-2 


SURFACE  (SF)  LIBRARY 


If  data  from  many  stations  are  to  be  accessed  for  a particular 
time,  the  time  can  be  set  using  SF_STIM.  The  stations  to  be 
selected  may  be  defined  using  LC_SARE  or  LC_UARE , wh  1 ch  se 
stations  using  the  GEMPAK  variable,  AREA.  In  addition,  a ne 
subroutine,  SF_UARE , can  be  used  to  set  a s t a t i on  s e a r ch . 
subroutine  will  allow  programs  to  execute  faster  if  a sing 
station  is  to  be  found  at  a list  of  times.  The  search  subroutine 

may  be  called  before  or  after  SF_STIM.  Stations  * SF * STAT1 and 

are  returned  using  SF_SNXT.  The  subroutines  SF  SSTN , SF-STAT  an 

SF STST  are  included  for  compatibility  with  6 & F 1 T e t e s e a r che s 

GEMPAK.  Note  that  calls  to  these  subroutines  will  delete  searches 

a 1 r e ady  defined* 


If  data  for  many  times  at  a particular 
station  may  be  selected  using  SF_TSTN. 

defined  using  S F TT IM*  Alternatively, 

SF__TNXT . 


station  are  required,  the 
The  time  may  then  be 
times  may  be  returned  using 


All  GEMPAK  surface  files  contain  information 
station  headers.  The  station  header  names, 
type  returned  from  the  SF  library  are: 


about  the  station  in 
contents,  and  the  data 


STID 

Station 

identifier 

CHARACTER* 4 

STNM 

Station 

number 

INTEGER 

SLAT 

Station 

latitude 

REAL 

SLON 

Station 

1 ong i tud  e 

REAL 

SELV 

Station 

elevation  in  meters 

REAL 

STAT 

State 

CHARACTER* 2 

COUN 

Coun  try 

CHARACTER *2 

Only  SLAT  and  SLON  are  required  for  surface  files, 
variables  are  optional. 


The  other  header 


The  subroutines  SF_FTIM  and  SF_JSTN  can  be  used  to  find  a time  and 
station  in  a data  set.  They  will  execute  faster  than  the 
subroutines  above,  but  can  only  be  used  with  files  where  the  times 
are  in  rows  and  the  stations  are  in  columns  (or  vice  versaj.  lheY 
were  designed  to  be  used  in  r e a 1 - t ime  , da t a - ing e s t applications  and 
should  not  be  used  for  normal  applications  which  use  general 
surface  files. 


The  parameter  packing  file  specifies  the  parameters  and  packing 
information  for  a surface  file.  Each  line  must  contain  the 
following  information  separated  by  blanks  or  tabs: 


parameter  name  CHAR *4 

minimum  data  value  REAL 

maximum  data  value  REAL 

resolution  REAL 


The  resolution  should  be  an  integral  power  of  10;  otherwise  the 


23-3 


SURFACE  (SF)  LIBRARY 


next  smaller  resolution  will  be  used  ( e.g.,  res  - 0.5  will  become 

* ' °*ata  are  not  to  be  packed,  the  minimum  and  maximum 

ata  va  ues  and  the  resolution  should  not  be  included.  Note  that 
either  all  of  the  parameters  must  have  packing  values  or  none  of 
them  mu st  have  th em . 


Some  examples  of  subroutine  sequences  for  accessing  the  data  follow. 

A sequence  of  subroutines  to  retrieve  surface  data  for  many 
stations  at  one  time  is: 


Open  the  surface  file 
Define  t ime 

Define  the  area  search 
Loop : 

Ge  t the  next  station 
Read  the  data 
End  loop 
Close  the  file 

A sequence  of  subroutines  to 
times  at  one  station  is: 

Initialize  GEMPAK 

Open  the  surface  file 
Get  t ime  s in  file 
Get  t ime  s to  use 
Se  t the  stati on 
Loop : 

Ge  t the  next  t ime 
Read  the  data 
End  loop 
Close  the  file 

ERROR  MESSAGES: 


( SF_OPNF ) 
(SF_STIM) 
(LC_SARE) 

(SF_SNXT) 

(SF_JtDAT) 

( SF__CLOS  ) 

retrieve  surface  data  for  many 


( IN_JBDTA) 

(SF_OPNF) 
(SF_GTIM) 
(TI__FIND) 
C SF_TSTN) 

( SF_TTIM) 
( SF_RDAT) 

( SF_CLOS ) 


[SF  +1] 
[SF  -1] 
[SF  -2] 
[SF  -3] 
[SF  -4] 
[SF  -5] 
[SF  -6] 
[SF  -7] 
[SF  -8] 
[SF  -9] 
[SF  -10] 
[SF  -11] 
[SF  -12] 
[SF  -13] 


Th  ere  is  no  data  at  the  station. 
File  ...  could  not  be  created. 

File  ...  could  not  be  opened. 

File  is  not  open. 

No  more  times  can  be  added. 

No  more  stations  can  be  added. 

File  is  not  a surface  data  file. 
Station  or  time  has  not  been  set. 
There  are  no  more  stations  in  file. 
There  are  no  more  times  in  file. 
Station  ...  is  not  in  file. 

T ime  ...  is  not  in  file. 

Error  f r om  DM  1 ibrary. 

Information  cannot  be  deleted. 


23-4 


SURFACE  (SF)  LIBRARY 


[SF  -14] 
[SF  -15] 
[SF  -16] 
[SF  -17] 
[SF  -18] 
[SF  -19] 
[SF  -20] 
[SF  -21] 


There  are  too  many  times  in  file. 

A s t a t e / c oun t ry  search  is  invalid. 

The  station  table  file  cannot  be  opened. 
Time  has  not  been  set. 

Station  has  not  been  set. 

Cannot  write  to  ship  file. 

Time  ...  is  inval id . 

File  is  not  a ship  file. 
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SF_A.STN 

SF_ATIM 

SF_JBEGS 

SF_CCLF 

SF_CCLP 

SF_CLOS 

SF_CREF 

SF_CRFP 

SF_CSDF 

SF_CSDP 

SF_DDAT 

SF_DSTN 

SF_DTIM 

SF__FSTN 

SF_JFTIM 

SF_GTIM 

SF_OPNF 

SF_OPNR 

SF_QDAT 

SF_QSTN 

SF_RDAT 


SF  Library  Ca 11s 

( isffln,  nstn,  stid,  istnm,  slat,  slon,  selv,  stat, 
coun,  / nadd,  iret  ) 


( 

( 

( 

( 

( 

( 

c 

( 

( 

( 

( 

c 

( 

( 

( 

( 

( 

( 

( 


isffln,  dattim,  / iret  ) 
isffln,  / iret  ) 


filnam,  iflsrc,  nparm,  parms,  maxstn,  maxtim,  pkflg, 
iscale,  lofset,  ibits,  stmflg,  / isffln,  iret  ) 

filnam,  prmfil,  iflsrc,  maxstn,  maxtim,  stmflg,  / isffln 
nparm,  parms,  pkflg,  iret  ) 

isffln,  / iret  ) 


f i In  am, 
iscale, 


iflsrc,  nparm,  parms,  maxstn,  maxtim,  pkflg, 
iofset,  ibits,  s tmf  lg,  / isffln,  iret  ) 


filnam,  prmfil,  iflsrc,  maxstn,  maxtim, 
nparm,  parms,  pkflg,  iret  ) 


stmflg,  / isffln, 


filnam,  iflsrc,  nparm,  parms,  maxrpt,  pkflg, 
lofset,  ibits,  stmflg,  / isffln,  iret  ) 


iscale, 


filnam,  prmfil,  iflsrc,  maxrpt, 
parms .pkflg, iret) 


stmflg,  / isffln,  nparm, 


isffln,  / iret  ) 


isffln,  stn,  / iret  ) 
isffln,  dattim,  / iret  ) 
isffln,  stn,  / iret  ) 
isffln,  datt  im,  / iret  ) 

isffln,  maxtim,  / ntime,  t iml  s t , iret  ) 

filnam,  wrtflg,  / isffln,  iflsrc,  nparm,  parms,  iret  ) 
filnam,  / isffln,  iflsrc,  nparm,  parms,  iret  ) 
isffln,  / datflg,  iret  ) 

isffln,  / stid,  istnm,  slat,  slon,  selv,  stat,  coun, 


( isffln,  / data,  ihhmm,  iret  ) 
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SF SNXT 

( i s f f In , 

/ stid, 

istnm,  slat,  slon,  selv,  iret  ) 

SF SSTN 

( i s f f 1 n , 

s t n , / 

stid,  istnm,  slat,  slon,  selv,  iret  ) 

SF_STAT 

C isffln, 

s t cn , / 

iret  ) 

SF STIM 

( isffln, 

da  1 1 im, 

/ iret  ) 

SF_STNF 

( isffln. 

t bf  i 1 e , 

/ iret  ) 

SF STST 

( isffln, 

ma  xstn, 

stcn,  / ns  tn , stid,  istnm,  iret 

) 

SF_TNXT 

( isffln. 

/ dattim,  iret  ) 

SF_TSTN 

( isffln, 

s tn , / 

iret  ) 

SF_TTIM 

( isffln, 

dattim, 

/ iret  ) 

SF_UARE 

C isffln, 

area,  newfil,  / arecur,  / stn,  iret  ) 

SF_USTN 

( isffln, 
keynam, 

stid,  istnm,  slat,  slon,  selv,  stat,  coun, 
/ iret  ) 

SF_WDAT 

( isffln, 

i hhmm, 

data,  / iret  ) 

SF_WSDD 

( isffln,  dattim,  stid,  istnm,  slat,  slon,  selv, 
coun,  ihhmm,  sfdata,  / iret  ) 

stat 
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23.1  SF_jVSTN 


- ADD  STATIONS 


This  subroutine  adds  a list  of  stations  to  a surface  data  file 
This  subroutine  can  only  be  used  if  the  times  and  stations  are 
mixed  in  row  or  column  headers.  NADD  returns  the  number  of 
stations  actually  added.  This  number  may  be  less  than  NSTN  if 
the  file  is  full. 


SF_ASTN  ( 


ISFFLN, 

COUN, 


Input  parameters 


NSTN,  STID,  ISTNM, 
NADD,  I RET  ) 


SLAT,  SLON,  SELV , STAT, 


I SFFLN 

INTEGER 

NSTN 

INTEGER 

STID 

(NSTN) 

CHAR*  4 

ISTNM 

(NSTN) 

INTEGER 

SLAT 

(NSTN) 

REAL 

SLON 

(NSTN) 

REAL 

SELV 

(NSTN) 

REAL 

STAT 

(NSTN) 

CHAR*  2 

COUN 

(NSTN) 

CHAR*  2 

put  pa 

r ame  t e r s : 

NADD 

INTEGER 

I RET 

INTEGER 

Surface  file  number 
Number  of  stations 
Station  identifiers 
Station  n umb  e r s 
Station  latitudes 
Station  longitudes 
Station  elevations 
States 
Coun  tries 


Numb  e r 
Return 

0 - 

-3  - 
-5  - 
-19  - 


of  stations  added 
code 

n o rma  1 return 
file  not  open 
too  many  stations 
non-standard  file 


not 
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23.2  SF_JYTIM  - ADD  TIME 


This  subroutine  adds  a time  to  a surface  data  file.  This 
subroutine  can  only  be  used  if  times  and  stations  are  not 
in  r ow  or  col umn  headers.  If  data  are  to  be  added  for  thi 


SF_STIM  must  be  called  first. 

SF_AT  IM  ( ISFFLN, 

DATTIM,  I RET  ) 

Input  parameters: 
ISFFLN 

INTEGER 

Surface 

file  numb  e r 

DATTIM 

CHAR* 

Da  t e / t ime 

Output  parameters: 
I RET 

INTEGER 

Return 

code 

0 = 

normal  return 

-3  = 

file  not  open 

-4  = 

too  many  t ime  s 

-19  = 

non- s t and  a r d f i 

-20  = 

t ime  is  i nva 1 i d 

mi  x e d 
s t ime  , 
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23.3  SF_BEGS  - RESET  SEARCH 


This  subroutine  resets  the  search  pointers  to  the  beginning  of  a 

surface  file.  It  does  not  change  the  time  set  by  SF STIM  or  the 

station  set  by  SF__TSTN. 

SF_JJEGS  ( ISFFLN,  I RET  ) 

Input  parameters: 

ISFFLN  INTEGER  Surface  file  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - normal  return 
-3  - file  not  open 
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23.4  SF__CCLF  - CREATE  CLIMATE  FILE 


This  subroutine  creates  a new  climate  surface  data  file.  The  fi 
will  store  stations  as  rows  of  a EM  file  and  times  as  columns. 

If  the  packing  flag,  PKFLG , is  set,  data  will  be  packed  using 
values  in  ISCALE,  IOFSET  and  IBITS.  Note  that  SF_CRFP  reads  the 
parameters  and  packing  information  from  a GEMPAK  packing  file. 

If  the  station  time  flag  is  set,  a single  word  is  allocated  with 
each  data  report  to  store  the  report  time  (HHMM) . This  time 
should  be  sent  to  SF_WDAT . 

If  the  file  cannot  be  created,  error  messages  will  be  written. 


The  data  source  values  are  parameters  in  GEMINC  rGEMPRM.  PRM  . 
These  are  not  currently  used  by  any  GEMPAK  program.  Current 
definitions  include: 

MFNONE  unknown 

MFAIRW  airways  surface  observation 

MFMETR  Me  tar  report 

MFSHIP  ship  report 

MFBUOY  buoy  report 

MFSYNP  synoptic  report 


SF_CCLF 


( FILNAM,  IFLSRC , NPARM,  PARMS , MAXSTN,  MAXTIM,  PKFLG, 
ISCALE,  IOFSET,  IBITS,  STMFLG,  ISFFLN , IRET  ) 


Input  parameters: 


FILNAM 

CHAR* 

IFLSRC 

INTEGER 

NPARM 

INTEGER 

PARMS 

(NPARM) 

CHAR*  4 

MAXSTN 

INTEGER 

MAXTIM 

INTEGER 

PKFLG 

LOGICAL 

ISCALE 

(NPARM) 

INTEGER 

IOFSET 

(NPARM) 

INTEGER 

IBITS 

(NPARM) 

INTEGER 

STMFLG 

LOGICAL 

Surface  file  name 

Data  source 

Number  of  parameters 

Parameter  names 

Maximum  number  of  stations 

Maximum  number  of  times 

Packing  flag 

Scaling  factor 

Offset  term 

Numbe  r of  bits 

Station  t ime  flag 


Output  parameters: 

ISFFLN  INTEGER  Surface  file  number 

IRET  INTEGER  Return  code 

0 = normal  return 
-1  * file  not  created 
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23.5  SF_CCLP  - CREATE  PACKED  CLIMATE  FILE 


This  subroutine  creates  a new  climate  surface  data  file.  The 
file  will  have  times  stored  as  columns  of  the  EM  file  and  stations 
as  r ows  . 

The  contents  of  the  file  named  in  PRMFIL  will  determine  the 
parameters  to  be  contained  in  the  data  set  and  the  packing,  if  any, 
to  be  used.  PKFLG  is  set  on  output  if  the  data  are  to  be  packed. 
All  data  packing  and  unpacking  will  be  done  internally.  This 
subroutine  is  identical  to  SF_CCLF  except  that  the  packing 
information  is  read  from  a file  in  this  subroutine.  The  data 
packing  file  is  described  in  the  introduction  to  this  chapter. 

If  the  station  time  flag  is  set,  a single  wo rd  is  allocated  with 
each  data  report  to  store  the  report  time  (HHMM)  . This  time 
should  be  sent  to  SF_\VDAT. 

If  the  file  cannot  be  created,  error  messages  will  be  written. 

The  data  source  values  are  parameters  in  GEMINC : GEMPRM.  PRM  . 

These  are  not  currently  used  by  any  GEMPAK  program.  Current 
definitions  include: 

MFNONE  unknown 

MFAIKW  airways  surface  observation 

MFMETR  Me  t a r report 

MFSHIP  ship  report 

MFBUOY  buoy  report 

MFSYNP  synoptic  report 

SF_CCLP  ( FILNAM,  PRMFIL,  IFLSRC,  MAXSTN,  MAXTIM,  STMFLG,  ISFFLN 
NPARM,  PARMS,  PKFLG,  I RET  ) 

Input  parameters: 

FILNAM  CHAR* 

PRMFIL  CHAR* 

IFLSRC  INTEGER 

MAXSTN  INTEGER 

MAXTIM  INTEGER 

STMFLG  LOGICAL 

Output  parameters: 

ISFFLN  INTEGER 

NPARM  INTEGER 

PARMS  (NPARM)  CHAR *4 
PKFLG  LOGICAL 

I RET  INTEGER 


Surface  file  name 
Parameter  packing  file  name 
Da  t a source 

Maximum  number  of  stations 
Maximum  number  of  times 
Station  time  flag 

Surface  file  n umb  e r 
Number  of  parameters 
Parameter  names 
Parameter  packing  flag 
Return  code 

0 = normal  return 
-1  - file  not  created 
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23.6  SF_CLOS  - CLOSE  SURFACE  FILE 


This  subroutine  closes  a surface 
be  called  to  flush  buffered  data 
the  file. 

SF_CLOS  ( ISFFLN,  I RET  ) 

Input  parameters: 

ISFFLN  INTEGER 

Output  parameters: 

I RET  INTEGER 


data  file.  This  subroutine  must 
if  anything  has  been  written  to 


Surface  file  number 


Return  code 

0 = no rma  1 return 
-3  - file  not  open 
- 12  = DM  error 
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23.7  SF__CREF  - CREATE  STANDARD  FILE 


This  subroutine  creates  a new  standard  surface  data  file.  The  file 
will  store  times  as  r ows  of  a DM  file  and  stations  as  col umn s . 

If  the  packing  flag,  PKFLG , is  set,  data  will  be  packed  using 
values  in  ISCALE,  IOFSET  and  IBITS.  Note  that  SF_CRFP  reads  the 
parameters  and  packing  information  from  a GEMPAK  packing  file. 

If  the  station  time  flag  is  set,  a single  word  is  allocated  with 
each  data  report  to  store  the  report  time  (HHMM)  . Thi  s t ime 
should  be  sent  to  SF.JVDAT . 

If  the  file  cannot  be  created,  error  messages  will  be  written. 

The  data  source  values  are  parameters  in  GEMINC:GEMPRM.  PRM  . 

These  are  not  currently  used  by  any  GEMPAK  program.  Current 
definitions  include: 

MFNONE  unknown 

MFAIKW  airways  surface  observation 

MFMETR  Me  tar  report 

MFSHIP  ship  report 

MFBUOY  buoy  report 

MFSYNP  synoptic  report 

SF_CREF  ( FILNAM,  IFLSRC,  NPARM,  PARMS , MAXSTN , MAXTIM,  PKFLG, 
ISCALE,  IOFSET,  IBITS,  STMFLG,  ISFFLN,  IRET  ) 

Input  parameters: 

FILNAM  CHAR* 

IFLSRC  INTEGER 

NPARM  INTEGER 

PARMS  (NPARM)  CHAR *4 
MAXSTN  INTEGER 

MAXTIM  INTEGER 

PKFLG  LOGICAL 

ISCALE  (NPARM)  INTEGER 
IOFSET  (NPARM)  INTEGER 
IBITS  (NPARM)  INTEGER 
STMFLG  LOGICAL 

Output  parameters: 

ISFFLN  INTEGER  Surface  file  number 

IRET  INTEGER  Return  code 

0 « normal  return 

-1  - file  not  created 


Surface  file  name 

Da  ta  source 

Number  of  parameters 

Parameter  names 

Maximum  number  of  stations 

Maximum  number  of  times 

Pa ck i ng  flag 

Scaling  factor 

Of  f s e t t e rm 

Numbe  r of  bits 

Station  t ime  flag 
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23.8  SF_CRFP  - CREATE  PACKED  STANDARD  FILE 


This  subroutine  creates  a new  standard 
file  will  have  times  stored  as  rows  of 
as  col umn  s . 


surface  data  file.  Th e 
the  EM  file  and  stations 


The  contents  of  the  file  named  in  PRMFILwill  determine  the 
parameters  to  be  contained  in  the  data  set  and  the  packing,  if  any 
to  be  used.  PKFLG  is  set  on  output  if  the  data  are  to  be  packed. 
All  data  packing  and  unpacking  will  be  done  internally.  is 

subroutine  is  identical  to  SF_CREF  except  that  the  Peking 
information  is  read  from  a file  in  this  subroutine.  The  data 
packing  file  is  described  in  the  introduction  to  this  chapter. 

If  the  station  time  flag  is  set,  a single  word  is  a 1 1 oca t ed  wi  th 
each  data  report  to  store  the  report  time  (HHMM) . This  time 
should  be  sent  to  SF__WDAT . 

If  the  file  cannot  be  created,  error  messages  will  be  written. 

The  data  source  values  are  parameters  in  GEMINC:GEMPRM.  PRM. 

These  are  not  currently  used  by  any  GEMPAK  program.  Current 


definitions  include: 

MFNONE 

unknown 

MFAIRW 

a i rwa  y s 

surface 

observation 

MFMETR 

Me  tar  report 

MFSHIP 

ship  report 

MFBUOY 

buoy  report 

MFSYNP 

synoptic 

report 

SF  CRFP  ( FILNAM, 

PRMFIL, 

IFLSRC, 

MAXSTN,  MAXTIM,  STMFLG, 

NPARM, 
Input  parameters: 

PARMS  , 

PKFLG , 

IRET  ) 

FILNAM 

CHAR* 

Surface  file  name 

PRMFIL 

CHAR* 

Parameter  packing  file 

IFLSRC 

INTEGER 

Data  source 

MAXSTN 

INTEGER 

Maximum  number  of  stati 

MAXTIM 

INTEGER 

Maximum  number  of  times 

STMFLG 

LOGICAL 

Station  time  flag 

Output  par ame  t e r s : 

ISFFLN 

INTEGER 

Surface  file  number 

NPARM 

INTEGER 

Number  of  parameters 

PARMS  (NPARM) 

CHAR*  4 

Parameter  names 

PKFLG 

LOGICAL 

Parameter  packing  flag 

I RET 

INTEGER 

Return  code 

0 = normal  return 

name 


-1  = file  not  created 
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23.9  SF_CSDF  - CREATE  SHIP  FILE 


This  subroutine  creates  a new  ship  surface  data  file.  The 
file  will  store  times  and. stations  together  as  columns  in  row 
1.  This  type  of  file  may  be  used  to  store  data,  such  as  ship 
reports,  where  the  station  locations  vary  in  time. 

If  the  packing  flag,  PKFLG,  is  set,  data  will  be  packed  using 
values  in  ISCALE,  IOFSET  and  IBITS.  Note  that  SF_CSDP  reads 
the  parameters  and  packing  information  from  a GEMPAK  packing 
file* 


If  the  station  time 
each  data  report  to 
should  be  sent  with 


flag  is  set,  a single  wo  r d is 
store  the  report  time  (HHMM)  . 
the  report  to  SF_\VSDD* 


allocated  with 
Th is  t ime 


The  subroutine  SF_VVSDD  wi 1 1 write  data  to  this  file.  The  data  can 

be  read  using  SF_RDAT;  all  GEMPAK  programs  will  be  able  to  read 
thisfile. 

If  the  file  cannot  be  created,  error  messages  will  be  written. 

The  data  source  values  are  parameters  in  GEMINC:GEMPRM.  PRM  . 

These  are  not  currently  used  by  any  GEMPAK  program.  Current 
definitions  include: 


MFNONE 

MFAIKW 

MFMETR 

MFSHIP 

MFBUOY 

MFSYNP 


unknown 

airways  surface  observation 

Me  tar  report 

ship  report 

buoy  report 

synoptic  report 


SF__CSDF 


( FILNAM, 
I SCALE , 


I FLSRC NPARM, 
IOFSET,  IBITS, 


PARMS  , MAXRPT , PKFLG , 
STMFLG,  ISFFLN,  I RET  ) 


Input  parameters: 

FILNAM 

CHAR* 

I FLSRC 

INTEGER 

NPARM 

INTEGER 

PARMS  (NPARM) 

CHAR*  4 

MAXRPT 

INTEGER 

PKFLG 

LOGICAL 

ISCALE  (NPARM) 

INTEGER 

IOFSET  (NPARM) 

INTEGER 

IBITS  (NPARM) 

INTEGER 

STMFLG 

LOGICAL 

Ou  t p u t par  ame  t e r s : 

I SFFLN 

INTEGER 

I RET 

INTEGER 

Surface  file  name 

Data  source 

Number  of  parameters 

Parameter  names 

Maximum  number  of  reports 

Packing  flag 

Scaling  factor 

Of  f s e t t e rm 

Number  of  bits 

Station  time  flag 

Surface  file  number 
Return  code 
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0 = normal  return 
-1  = file  not  created 


23-17 


SURFACE  (SF)  LIBRARY 


2 3.10  SF__CSDP  - CREATE  PACKED  SHIP  FILE 


This  subroutine  creates  a new  ship  surface  data  file.  The 
file  will  store  times  and  stations  together  as  columns  in  row 
1.  This  type  of  file  may  be  used  to  store  data  if  the  station 
locations  vary,  such  as  for  ship  reports. 

The  parameter  packing  file  named  in  PRMFILwill  determine  the 
parameters  to  be  contained  in  the  data  set  and  the  packing,  if  any, 
to  be  used.  PKFLG  is  set  on  output  if  the  data  are  to  be  packed. 
All  data  packing  and  unpacking  will  be  done  internally.  This 
subroutine  is  identical  to  SF_CSDF  except  that  the  packing 
information  is  read  from  a packing  file  in  this  subroutine. 

e data  packing  file  is  described  in  the  introduction  to  this 
chapter  . 


If  the  station  time  flag  is  set,  a single  word  is  allocated  with 
each  data  report  to  store  the  report  time  (HHMM) . This  time 
should  be  sent  with  the  report. 

The  subroutine  SF_WSDD  wi 1 1 write  data  to  this  file.  The 
data  can  be  read  using  SF_JiDAT,  so  all  GEMPAK  programs  will  be 
able  to  read  thi s file. 


The  data  source  values  are  parameters  in  GEMINC : GEMPRM.  PRM  . 
Ihese  are  not  currently  used  by  any  GEMPAK  program.  Current 
definitions  include: 


MFNONE 

MFAIRW 

MFMETR 

MFSHIP 

MFBUOY 

MFSYNP 


unknown 

airways  surface  observation 
Me  tar  report 
ship  report 
buoy  report 
s ynop  tic  report 


SF__CSDP  ( FILNAM,  PRMFIL , IFLSRC,  MAXRPT,  STMFLG,  ISFFLN,  NPARM 
PARMS,  PKFLG,  IRET  ) ’ 


Input  parameters: 

FILNAM  CHAR* 

PRMFIL  CHAR* 

IFLSRC  INTEGER 

MAXRPT  INTEGER 

STMFLG  LOGICAL 

Output  parameters: 

ISFFLN  INTEGER 

NPARM  INTEGER 

PARMS  (NPARM)  CHAR *4 
PKFLG  LOGICAL 

!RET  INTEGER 


Surface  file  name 
Parameter  packing  file  name 
Da  t a source 

Maximum  number  of  reports 
Station  time  flag 

Surface  file  number 
Number  of  parameters 
Parameter  names 
Parameter  packing  flag 
Return  code 
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0 ■ no rma 1 return 
-1  - file  not  created 
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2 3.11  SF_JDDAT  - DELETE  DATA 


This  subroutine  deletes  data  for  a particular  station  and  time 
from,  a surface  data  file.  The  time  and  station  must  be  set 
before  calling  this  subroutine. 

SF_DDAT  ( ISFFLN,  I RET  ) 

Input  parameters: 

ISFFLN  INTEGER  Surface  file  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - normal  return 
-3  « file  not  open 
-7  - location  not  set 
- 1 2 « EM  error 
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23.12  SF_PSTN  - DELETE  STATION 


This  subroutine  deletes  a station  from 
data  corresponding  to  the  station  will 
station  header. 


a surface  file, 
be  deleted  along 


A1  1 
wi  th 


SF_DSTN  C ISFFLN,  STN , I RET  ) 


Input  parameters: 

ISFFLN  INTEGER 

STN  CHAR* 


Surface  file  number 
Station  number  or  id 


Output  parameters: 

I RET  INTEGER 


Return  code 

0 = normal  return 
-3  = file  not  open 
-13  = delete  error 


the 

the 
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23.13  SF_DTIM  - DELETE  TIME 


This  subroutine  deletes  a time  from  a surface  file.  All 
corresponding  to  the  time  will  be  deleted  along  with  the 
storing  the  time.  * 


SF_J)TIM  ( ISFFLN,  DATTIM,  IRET  ) 


Input  parameters: 

I SFFLN 
DATTIM 

Output  parameters: 
IRET 


INTEGER 

Surface  file  number 

CHAR* 

GEMPAK  date/ time 

INTEGER 

Return  code 

0 - n o rma  1 return 

- 3 « file  no t open 

-13  * delete  error 

the  data 
header 
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23.14  SF FSTN  - FIND  STATION 


This  subroutine  finds  the  location  of  the  specified  station  in 
file  The  first  occurrence  of  the  station  is  saved.  This 
subroutine  may  only  be  used  when  times  * nd  s ta t ion s a r e n o t mi x e 
in  row  or  column  headers  in  the  file.  It  will  execute 
the  SF_Sxxx  or  SF_Txxx  subroutines,  but  ^ ^tended 
only  for  real-time  ingest  programs  where  the  structure 
is  known  by  the  programmer.  The  time  may  be  se  g 

These  subroutines  may  be  called  in  either 


be  set 
order  . 


be  used 
of  the  file 
SF_JFTIM. 


SF_JFSTN  ( ISFFLN,  STN , IRET 

Input  par  ame  t e r s : 

ISFFLN  INTEGER 

STN  CHAR* 

Output  parameters: 

I REX  INTEGER 


Surface  file  number 
Station  number  or  id 


Return  code 

0 = normal  return 
-3  = file  not  open 
-10  = station  not  found 
-19  = non-standard  file 
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23.15  SF — FT IM  - FIND  TIME 


This  subroutine  finds  the  location  of  the  specified  date/time 
in  a tile.  The  first  occurrence  containing  the  time  is  saved 
This  subroutine  may  only  be  used  when  times  and  stations  are  not 

: dt;:  srs:Lc„°;u^  £rdervn  ,he  fne-  u wui  •»«" 

: ^xxx  or  SF_Txxx  subroutines,  but  is  intended  to 

be  used  only  for  real-time  ingest  programs  where  the  structure  of 

SF  FSTN*  XTh kn0Wn  thC  Pr°8rammer-  The  station  may  be  set  using 
SFJSTN.  These  subroutines  may  be  called  in  either  order. 


SF — FTIM  ( ISFFLN,  DATTIM,  I RET  ) 


Input  parameters: 

ISFFLN  INTEGER 

DATTIM  CHAR* 

Output  parameters: 

IRET  INTEGER 


Surface  file  number 
Da  t e / t ime 


Return  code 

0 = normal  return 
-3  = file  not  open 
-11  = time  not  found 
-19  = non-standard  file 
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23.16  SF_GTIM  - GET  LIST  OF  TIMES 


This  subroutine  returns  a list  of 
data  file.  The  times  are  ordered 

SF_GTIM  C ISFFLN,  MAXTIM,  NTIME, 

Input  parameters: 

ISFFLN  INTEGER 

MAXTIM  INTEGER 

Ou t pu  t par  ame  t e r s : 

NTIME  INTEGER 

TIMLST  (NTIME)  CHAR* 

I RET  INTEGER 


times  available  in  a surface 
f r om  the  earliest  to  the  latest. 

TIMLST,  I RET  ) 


Surface  file  number 
Maximum  number  of  times 

Number  of  times  returned 
GEMPAK  t ime  s 
Return  code 

0 — normal  return 
-3  = file  not  open 
-14  = too  many  times  in  file 
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23.17  SF_OPNF  - OPEN  SURFACE  FILE 

This  subroutine  opens  an  existing  surface  data  file. 

SF_OPNF  ( FILNAM,  WRTFLG , I SFFLN , IFLSRC,  NPARM,  PARMS . I RET 


Input  parameters: 

FILNAM 

CHAR* 

WRTFLG 

LOGICAL 

Ou  t p u t par  ame  t e r s : 

I SFFLN 

INTEGER 

IFLSRC 

INTEGER 

NPARM 

INTEGER 

PARMS  (NPARM) 

CHAR*  4 

I RET 

INTEGER 

Surface  file  n ame 
Write  access  flag 

File  numbe  r 
Da  t a source 
Number  of  parameters 
Parameter  names 
Return  code 


0 = 

n o rma  1 return 

-2  = 

file 

could  not  be  opened 

- 6 = 

file 

not  surface  file 

-22  = 

file 

name  is  blank 
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23.18  SF_OPNR 

- OPEN  REAL-TIME 

SURFACE  FILE 

This  subroutine  opens  an  existing  surface  data  file  for  real-time 

data  ingest.  The  f i le  l s opened  for  shared  wr  . te  access  . This 

subroutine1 should  not  be  used  for  non- real - t im.  appl . ca , i ons . 

SF_OPNR  ( FILNAM, 

ISFFLN,  IFLSRC, 

NPARM,  PARMS,  I RET  ) 

Input  parameters: 
FILNAM 

CHAR* 

Surface  file  name 

Output  parameters: 
ISFFLN 
IFLSRC 
NPARM 

PARMS  (NPARM) 

I RET 

INTEGER 
INTEGER 
INTEGER 
CHAR*  4 
INTEGER 

File  numb  e r 

Data  source 

Numb e r of  par  ame  t e r s 

Parameter  names 

Return  code 

0 = normal  return 
-2  - file  could  not  be  opened 
-6  = file  not  surface  file 
-22  - file  name  is  blank 
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23.19  SF_QDAT  - CHECK  FOR  DATA 


This  subroutine  sets  a flag 
station  and  time  are  stored 


indicating  whether  data  for  the 
in  a file. 


current 


SF_QDAT  ( ISFFLN,  DATFLG , I RET  ) 


Input  parameters: 

ISFFLN  INTEGER 

Output  parameters: 

DATFLG  LOGICAL 

IRET  INTEGER 


Surface  file  number 


Data  present  flag 
Return  code 

0 - normal  return 
-3  - file  not  open 
-7  = location  not  set 
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23.20  SF_QSTN 


This  subroutine  ge 
Both  the  time  and 
called. 

SF_QSTN  ( ISFFLN, 
I RET  ) 

Input  parameters: 
ISFFLN 

Output  parameters: 

STID 

ISTNM 

SLAT 

SLON 

SELV 

STAT 

COUN 

I RET 


GET  STATION  INFORMATION 


s station  informat 
t a t i o n mu s t be  set 


on  for  the  current  station, 
before  this  subroutine  is 


STID,  ISTNM,  SLAT,  SLON,  SELV, 


STAT,  COUN, 


INTEGER 

Sounding  file  number 

CHAR*  4 

Station  identifier 

INTEGER 

Station  number 

REAL 

Station  latitude 

REAL 

Station  longitude 

REAL 

Station  elevation 

CHAR*  2 

State 

CHAR*  2 

Country 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  not  open 
-7  - location  not 
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2 3.21  SF_RDAT  - READ  DATA 


Th is  subroutine  reads  data  fr om  a surface  data  file 
station  must  be  set  before  calling  this  subroutine.' 

SF_RDAT  ( ISFFLN,  DATA,  IHHMM,  I RET  ) 


The  t ime  and 


Input  parameters: 

ISFFLN  INTEGER 

Output  parameters: 

DATA  (NPARM)  REAL 
IHHMM  INTEGER 

IR£T  INTEGER 


Surface  file  number 


Station  data 

Station  hour  and  minute 

Return  code 

1 = no  data  at  station 
0 = normal  return 
-3  = file  not  open 
-7  = location  not  set 
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23.22  S F SNXT  - SET  NEXT  STATION 


This  subroutine  selects  the  next  station  in  a surface  file. 

SF STIM  mus  t be  called  to  set  the  time  before  ^routine 

is  called.  Stations  to  be  found  can  be  set  in  SF_UARE.  D 
for  this  station  may  be  read  or  written  by  calling  S _R 


SF_WDAT , respectively. 

SF_SNXT  C ISFFLN,  STID,  ISTNM,  SLAT,  SLON , SELV,  IRET  ) 


Input  parameters: 
ISFFLN 

INTEGER 

Surface  file  number 

Output  parameters: 
STID 
ISTNM 
SLAT 
SLON 
SELV 
IRET 

CHAR*  4 

INTEGER 

REAL 

REAL 

REAL 

INTEGER 

Station  identifier 
Station  number 
Station  lat i tude 
Station  longitude 
Station  el eva t ion 
Return  code 

0 — n o rma  1 return 

-3  - file  not  open 
-8  — no  more  stations 

- 17  - t ime  not  set 
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23.23  SF — SSTN  - SET  PARTICULAR  STATION 


This  subroutine  selects  a station  in  a surface  file, 
mu  st  be  called  before  this  subroutine  is  called.  This 
will  delete  any  searches  previously  set.  Data  for  thi 
can  be  read  or  written  by  calling  SF_J1DAT  or  SF_VVDAT , 


SF_STIM 
subroutine 
s station 
respectively. 


SF — SSTN  ( ISFFLN,  STN , STID,  ISTNM,  SLAT,  SLON,  SELV,  IRET  ) 


Input  parameters: 

ISFFLN  INTEGER 

STN  CHAR* 

Output  parameters: 

STID  CHAR*  4 

ISTNM  INTEGER 

slat  real 

SLON  REAL 

SELV  REAL 

IRET  INTEGER 


Surface  file  number 
Station  id  or  number 


Station  identifier 
Station  number 
Station  latitude 
Station  longitude 
Station  elevation 
Return  code 

0 = n o rma  1 return 
-3  = file  not  open 
-10  = station  not  in  file 
-17=  t ime  not  set 
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23.24  SF STAT  - SET  A STATE/COUNTRY 


This  subroutine  selects  a state  or  country.  Later  calls  to 
SF  SNXT  wi 1 1 return  stations  in  the  state  or  country.  — 

muTYbe  called  before  this  subroutine  is  called.  This 
is  included  for  compatibility  with  earlier  versions  of  GEMPAK.  A 
search  for  stations  should  be  set  using  SF_UARE. 


SF_STAT  ( ISFFLN,  STCN , I RET  ) 


Input  parameters: 

ISFFLN  INTEGER 

STCN  CHAR  *2 


Surface  file  number 

State  or  country  abbreviation 


Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
-3  - file  not  open 
-15  = no  state/country  info 
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23.25  SF ST IM  - SET  TIME 


This  subroutine  sets 
station  searches  will 


the  time  in  a surface  file.  A1 
return  stations  corresponding 


1 1 a t 
to  th 


SF__STIM  ( ISFFLN,  DATTIM,  I RET 

Input  parameters: 

ISFFLN  INTEGER 

DATTIM  CHAR* 

Ou  t p u t par  ame  t e r s : 

I RET  INTEGER 


Surface  file  number 
GEMPAK  date/ time 


Return  code 


0 

= normal  return 

-3 

« file 

not 

open 

-11 

= t ime 

not 

in  f i 1 

-17 

= t ime 

not 

set 

s r 

i s t ime  . 
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23.26  SF STNF  - ADD  STATIONS  FROM  TABLE  FILE 


This  subroutine  adds  stations  from  a table  1 e o 
This  subroutine  can  only  be  used  if  the  times  and 
not  mixed  in  row  and  column  headers. 


a surface  file, 
stations  are 


SF_STNF  ( I SFFLN , TBFILE , I RET  ) 


Input  parameters: 

I SFFLN  INTEGER 

TBFILE  CHAR* 


Surface  file  number 
Station  table  file  name 


Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 
-3  = file  not  open 
- 5 = no  mo  re  space 
-16  = station  file  not  opened 
-19  = non-standard  file 
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23.27  SF — STST  - GET  STATIONS  IN  STATE 


This  subrout ine 
SF_STIM  must  be 
subrout ine  is  in 
GEMPAK . A s e a r c 


returns  a list  of  stations  in 
called  before  this  subroutine 
eluded  for  compa t i b i 1 i ty  wi  th 
h for  stations  should  be  set  u 


a state  or  c oun t 
is  called.  This 
earlier  versions 
sing  SF_UARE . 


ry  • 

of 


SF STST 


ISFFLN,  MAXSTN,  STCN,  NSTN , STID,  ISTNM,  IRET  ) 


Input  parameters: 


I SFFLN 

INTEGER 

MAXSTN 

INTEGER 

STCN 

CHAR*  2 

tput  parameters: 

NSTN 

INTEGER 

STID  (NSTN) 

CHAR*  4 

ISTNM  (NSTN) 

INTEGER 

IRET 

INTEGER 

Surface  file  number 
Maximum  number  of  stations 
S t a t e / c oun  try  name 


Number 
S t a t i on 
S t a t i on 
Re  turn 
2 - 
0 - 
3 - 
5 - 


-1 


of  s t a t i ons 
identifiers 
numbe  r s 
code 

too  many  stations 
n o rma 1 return 
file  no t open 
i nva lid  search 
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23.28  SF_TNXT  - SET  NEXT  TIME 


This  subroutine  selects  the  next  time  in  a surface  file.  SF  TSTN 
must  be  called  to  set  the  station  before  this  subroutine  is  called 
The  times  will  be  returned  in  the  order  in  which  they  appear  in 
the  file,  rather  than  in  chronological  order.  Data  for  this  ti 
can  be  read  or  written  by  calling  S F_RDAT  or  SF_WDAT , respectively 


SF_TNXT  ( ISFFLN,  DATTIM,  I RET  ) 


Input  parameters: 
ISFFLN 


INTEGER 


Surface  file  number 


Output  parameters:  . 

DATTIM  CHAR*  GEMPAK  date/ time 

IRET  INTEGER  Return  code 

0 = normal  return 

-3  = file  not  open 
-9  = no  more  times 
-18  = station  not  set 
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23.29  SF_TSTN  - SET  STATION 


This  subroutine  sets  the  station  in  a surface  file.  All  later 
time  searches  will  return  times  corresponding  to  this  station. 

SF_TSTN  ( ISFFLN,  STN , I RET  ) 


Input  parameters: 
ISFFLN 
STN 

INTEGER 

CHAR* 

Surface  file  number 
Station  number  or  id 

Output  parameters: 
I RET 

INTEGER 

Re  turn  code 

0 - normal  return 
-3  = file  not  open 
-10  - station  not  in  file 
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23.30  SF_TTIM  - SET  TIME 


This  subroutine  sets  the  time  in 
be  called  before  this  subroutine 
can  be  read  or  written  by  calling 

SF__TTIM  ( ISFFLN,  DATTIM,  I RET  ) 

Input  par  ame  t e r s : 

ISFFLN  INTEGER 

DATTIM  CHAR* 

Output  parameters: 

I RET  INTEGER 


surface  file.  SF TSTN  must 

s called.  Data  for  this  time 
SF__RDAT  or  SF_WDAT , respectively. 


Surface  file  number 
GEMPAK  date/ time 


Re  turn  code 

0 - normal  return 
-3  = file  not  open 
-11  = time  not  found 
-18  = station  not  set 
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23.31  SF_UARE  - SET  STATION  SEARCH 


This  subroutine  sets  the  search  criteria  in  a surface  file  using 
the  value  for  AREA  input  by  the  user.  The  area  may  be  composed  of 
subareas  which  are  separated  by  slashes  (/).  This  subroutine 
will  be  more  efficient  than  the  equivalent  LC_UARE  when  searching 
for  a single  station  at  multiple  times.  If  the  search  is  not  for 
a single  station,  the  appropriate  calls  to  the  LC  library  will 
be  made  . 

SF_UARE  ( ISFFLN,  AREA,  NEWFIL,  ARECUR,  STN,  I RET  ) 

Input  parameters: 

ISFFLN  INTEGER 

AREA  CHAR* 

NEWFIL  LOGICAL 

Input  and  output  parameters: 

ARECUR  CHAR*  Current  area 

Ou  t pu  t par  ame  t e r s : 

CHAR*  Center  stat  ion  name 

IRET  INTEGER  Return  code 

0 - normal  return 
-1  = invalid  area  name 


Surface  file  n umb  e r 
Area  to  be  defined 
New  file  flag 
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23.32  SF_USTN  - UPDATE  STATION  INFORMATION 


This  subroutine  updates  the  header  information  for  a station  in  a 
surface  data  file.  This  subroutine  can  only  be  used  if  the  times 
and  stations  are  not  mixed  in  row  or  column  headers. 

SF_USTN  ( ISFFLN,  ST ID,  ISTNM,  SLAT,  SLON,  SELV,  STAT , 

COUN,  KEYNAM,  I RET  ) 


Input  parameters: 

Surface 

file  numb  e r 

ISFFLN 

INTEGER 

STID 

CHAR* 4 

Station 

identifier 

ISTNM 

INTEGER 

Station 

numb  e r 

SLAT 

REAL 

Station 

latitude 

SLON 

REAL 

Station 

1 ong i t ud  e 

SELV 

REAL 

Station 

elevation 

STAT 

CHAR *2 

State 

COUN 

CHAR*  2 

Country 

update  (STID  or  STNM) 

KEYNAM 

CHAR* 4 

Key  to 

Output  parameters: 

Return 

code 

I RET 

INTEGER 

0 = 

normal  return 

-3  = 

file  not  open 

-10  = 

station  not  in  file 

-12  = 

EM  error 

-19  = 

non-standard  file 
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23.33  SF_WDAT  - WRITE  DATA 


This  subroutine  writes  data  to  a surface  data  file.  The  time  and 
station  must  both  be  set  before  this  subroutine  is  called.  The 
station  time  will  be  stored  if  the  station  time  flag,  STMFLG , 
wa  s set  wh  en  the  file  wa  s created. 

SF_WDAT  ( ISFFLN,  IHHMM,  DATA,  IRET  ) 

Input  parameters: 

ISFFLN  INTEGER 

IHHMM  INTEGER 

DATA  (NPARM)  REAL 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 

-3  — file  not  open 
-7  = location  not  set 
- 1 2 - EM  error 


Surface  file  n umb  e r 
Station  time  (HHMM) 
Surface  data  array 
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Sounding  (SN)  Library  Summary 


I™?£unding  Ubrary  subroutines  allow  the  programmer  to  access 
GEMPAK  upper-air  data  files.  These  files  contain  meteorological 
observations  from  many  locations  for  different  times.  The 
library  contains  modules  which  create  and  open  files  and  read  or 
wr  itc  data  to  these  files. 

There  ar ? , tW0  types  of  GEMPAK  sounding  files:  merged  and  unmerged. 

Merged  files  may  contain  an  arbitrary  set  of  par  ame  t e r s wh  i c h 
report  at  every  level.  Unmerged  files  store  mandatory  and 
significant  data  separately  in  the  following  parts  with  the 
given  par  ame  t e r s : 


TTAA 

TTBB 

PPBB 


mandatory  data  below  100  mb 
sig  temp  data  below  100  mb 
sig  wind  data  below  100  mb 


TTCC 

TTDD 

PPDD 


mandatory  data  above  100  mb 
sig  temp  data  above  100  mb 
sig  wind  data  above  100  mb 


PRES  TEMP  EWPT  DRCT  SPED  HGHT 
PRES  TEMP  EWPT 
HGHT  DRCT  SPED  or 
PRES  DRCT  SPED 

PRES  TEMP  IWPT  DRCT  SPED  HGHT 
PRES  TEMP  DWPT 
HGHT  DRCT  SPED  or 
. . PRES  DRCT  SPED 

when  wind  data  appear  on  pressure  surfaces,  the  first  pressure  is 
set  to  the  negative  of  its  value  as  a flag. 

Data  that  are  to  be  written  to  an  unmerged  file  must  be  in  the 
specified  order.  When  data  are  returned  from  an  unmerged  file 
data  from  all  the  parts  will  be  merged.  Int e rpo 1 a t i on  wi  1 1 be 
used  to  fill  in  the  significant  data  levels. 

Merged  data  files  can  be  created  using  SN_CREF  or  SN_CRFP* 
unmerged  files  can  be  created  using  SN_CRUA.  SN_OPNF  wi 1 1 open 
either  file  type.  SN_RDAT  will  read  data  from  all  files; 
unmerged  data  will  be  returned  as  a merged  data  set.  SN—RTYP  can 
be  called  to  determine  whether  each  level  is  mandatory,  significant 
temperature,  or  significant  wind  level  data.  SN_J1AND  can 
e called  to  request  that  only  mandatory  data  below  100  mb  be 

SNw£££  WhCn  SN-RDAT  is  called.  SN_WDAT  writes  to  merged  files; 
SN__WPRT  writes  to  unmerged  files.  6 


The  subroutines  to  create  or  open  a sounding  file  return 
number  which  must  be  used  in  later  subroutines  to  access 


a file 
the  file 


The  file  GEMINC ; GEMPRM. PRM  contains  the  maximum  values  for  array 
dimensions  when  using  GEMPAK  subroutines.  A copy  of  this  file  has 
een  included  in  the  appendix  for  easy  reference.  MMFILE  is  the 
maximum  number  of  files  that  can  be  open.  LLMXTM  is  the  maximum 
number  of  times  that  can  be  saved  in  a GEMPAK5  file.  The  maximum 
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number  of  stations  is  LLSTFL  and  the  maximum  number  of  parameters 
i s MMPARM . 

After  a file  is  opened,  both  the  time  and  station  must  be  selected 
before  data  can  be  read  or  written.  There  are  two  groups  of 
subroutines  that  perform  this  function. 


If  data  from  many  stations  are  to  be  accessed  for  a particular 
time,  the  time  can  be  set  using  SN_STIM.  The  stations  to  be 
selected  may  be  defined  using  LC_SARE  or  LC_UARE,  which  select 
stations  using  the  GEMPAK  variable,  AREA.  The  LC  subroutines  may 
be  called  before  or  after  SN_STIM.  Stations  within  the  area  are 
returned  using  SN SNXT . 


If  data  for  many  times  at  a particular  station  are  required,  the 
station  may  be  selected  using  SN_TSTN . The  time  may  then  be 
defined  using  SN_TTIM.  Alternatively,  times  may  be  returned  using 

SN__TNXT . 


All  GEMPAK  files  contain  information  about  the  station  in  station 
headers.  The  station  header  names,  contents,  and  the  data  types 
returned  from  the  SN  library  are: 


STID 

Station 

identifier 

STNM 

Station 

numb  e r 

SLAT 

Station 

latitude 

SLON 

Station 

1 ong i tude 

SELV 

Station 

elevation 

STAT 

State 

COUN 

Count  ry 

i n me  t e r s 


CHARACTER *4 

INTEGER 

REAL 

REAL 

REAL 

CHARACTER *2 
CHARACTER* 2 


Only  SLAT  and  SLON  are  required  for  sounding  files.  The  other 
header  variables  are  optional. 

The  subroutines  SNJTIM  and  SN__FSTN  can  be  used  to  find  a time 

and  station  in  a data  set.  They  will  execute  faster  than  the 

subroutines  above,  but  can  only  be  used  with  files  where  the  times 

are  in  rows  and  the  stations  are  in  columns  (or  vice  versa!.  They  were 

designed  to  be  used  in  real-time  data  ingest  applications  and  should 

not  be  used  for  no  rma  1 applications  wh  ich  use  general  sounding 

files. 


Some  examples  of  subroutine  sequences  for  accessing  the  data  follow 

A sequence  of  subroutines  to  retrieve  sounding  data  for  many 
stations  at  one  time  is: 

Initialize  GEMPAK  ( IN_BDTA) 


Open  the  file  (SN_OPNF) 

Define  the  time  (SN_STIM) 
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Define  the  area  search 
Loop : 

Get  the  next  station 
Read  the  data 
End  loop 
Close  the  file 


( LC_S  ARE  ) 

(SN_SNXT) 
( SN__RDAT  ) 

( SN_CLOS ) 


A sequence  of  subroutines  to  retrieve  sounding  data  for  many 
at  one  station  is: 


Open  the  sounding  file 
Get  t ime  s in  file 
Get  t ime  s to  use 
Set  the  station 
Loop  : 

Ge  t the  next  t ime 
Read  the  data 
End  loop 
Close  the  file 

ERROR  MESSAGES: 


( SN—OPNF ) 
(SN_GTIM) 
(TI_FIND) 
(SN_TSTN) 

(SN__TTIM) 

(SN^RDAT) 

(SN_CLOS) 


[SN 

1] 

[SN 

-1] 

[SN 

-2] 

[SN 

-3] 

[SN 

-4] 

[SN 

-5] 

[SN 

-6] 

[SN 

-7] 

[SN 

-8] 

[SN 

-9] 

[SN 

-10] 

[SN 

-11] 

[SN 

-12] 

[SN 

-13] 

[SN 

-14] 

[SN 

-15] 

[SN 

-16] 

[SN 

-17] 

[SN 

-18] 

[SN 

-19] 

[SN 

-20] 

[SN 

-21] 

[SN 

-22] 

[SN 

-23] 

[SN 

-24] 

No  data  at  station* 

File  ...  could  not  be  created. 

File  ...  could  not  be  opened. 

Invalid  part  type. 

File  no  t open . 

No  more  times  can  be  added. 

No  more  stations  can  be  added. 

File  •••  is  not  a sounding  data  set. 
Station  or  time  has  not  been  set. 

No  more  stations  in  file. 

No  more  times  in  file. 

Station  ...  is  not  in  file. 

T ime  ...  is  not  in  file. 

Data  management  (EM)  error. 

Too  many  times  in  file. 

Delete  error. 

Too  many  levels  at  station. 

Invalid  merged/unmerged  data  file. 
Station  table  file  cannot  be  opened. 
Time  has  not  been  set. 

Station  has  not  been  set. 
Non-standard  sounding  station. 
Invalid  part  name. 

T ime  ...  is  i nva lid. 

File  name  is  blank. 


t ime  s 
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SN  Library  Calls 


SN_ASTN 

( isnfln, 
c oun  , / 

nstn,  stid,  istnm,  slat,  slon,  selv,  stat, 
nadd  , iret  ) 

SN_ATIM 

( i snf In , 

dattim,  / iret  ) 

SN_BEGS 

C i snf In , 

/ iret  ) 

SN_CLOS 

( i snf In , 

/ iret  ) 

SN_CREF 

( f i In am, 
i s c a 1 e , 

iflsrc,  nparm,  parms,  maxstn,  maxtim,  pkflg, 
iof set  , ibits,  s tmf  lg,  / isnfln,  iret  ) 

SN_CRFP 

( filnam,  prmfil,  iflsrc,  maxstn,  maxtim,  s tmf 1 g , 
nparm,  parms,  pkflg,  iret  ) 

/ isnfln 

SN_CRUA 

( filnam, 
t rpf lg  , 

iflsrc,  iptype,  maxstn,  maxtim,  pkflg, 
/ isnfln,  iret  ) 

s tmf  1 g , 

SN__PDAT 

( i s nf 1 n , 

/ iret  ) 

SN_DSTN  _ 

( i snf In , 

stn,  / iret  ) 

SN_PTIM 

( isnf In, 

d a 1 1 im,  / iret  ) 

SN _FSTN 

( i snf 1 n , 

stid,  / iret  ) 

SN_FTIM 

( i snf In , 

d a 1 1 im,  / iret  ) 

SN_GTIM 

( i snf In , 

maxtim,  / ntime,  t iml  s t , iret  ) 

SN_MAND 

( i snf In , 

mand  at,  / iret  ) 

SN_KTYP 

( i snf In , 

i z type  , / iret  ) 

SN_OPNF 

( filnam, 
mr  gda  t , 

wrtflg,  / isnfln,  iflsrc,  nparm,  parms, 
iret  ) 

ivert , 

SN__OPNR 

( filnam, 
iret  ) 

/ isnfln,  iflsrc,  nparm,  parms,  ivert, 

mrgda  t , 

SN_QDAT 

( i snf In , 

/ datflg,  iret  ) 

SN_QSTN 

( i snf 1 n , 
iret  ) 

/ stid,  istnm,  slat,  slon,  selv,  stat. 

c oun  , 

SN_RDAT 

( i snf In , 

/ nlev,  data,  ihhmm,  iret  ) 

SN__RPRT 

( i snf 1 n , 

part,  / ihhmm,  nlev,  data,  zwind,  iret 

) 
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SN_JtTYP 

( i snf In , 

/ nlev,  idtype,  iret  ) 

SN SNXT 

( i snf In , 

/ stid,  istnm,  slat,  slon,  selv,  iret 

) 

SN SSTN 

( i snf In , 

stn,  / stid,  istnm,  slat,  slon,  selv, 

iret 

SN STIM 

C i snf 1 n , 

dattim,  / iret  ) 

SN_STNF 

( i snf 1 n , 

tbfile,  / iret  ) 

SN__TNXT 

( i snf 1 n , 

/ dattim,  iret  ) 

SN_TSTN 

( i snf 1 n , 

stn,  / iret  ) 

SN_TTIM 

( i snf In , 

da  1 1 im,  / iret  ) 

SN_USTN 

( i snf 1 n , 
keynam, 

stid,  istnm,  slat,  slon,  selv,  stat,  coun, 
/ iret  ) 

SN_WDAT 

( i snf 1 n , 

ihhmm,  nlev,  data,  / iret  ) 

SN_WPRT 

( i snf In , 

part,  ihhmm,  nlev,  data,  zwind,  / iret 

) 
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24.1  SN_ASTN  - ADD  STATION 


Th is  subroutine 
This  subroutine 
not  mixed  in  row  or 

SN^ASTN  ( ISNFLN,  NSTN , ST ID, 
COUN,  NADD,  I RET  ) 

Input  parameters: 


ISNFLN 

NSTN 

STID 

(NSTN) 

INTEGER 

INTEGER 

CHARM 

ISTNM 

(NSTN) 

INTEGER 

SLAT 

(NSTN) 

REAL 

SLON 

(NSTN) 

REAL 

SELV 

(NSTN) 

REAL 

STAT 

(NSTN) 

CHAR*  2 

COUN 

(NSTN) 

CHAR *2 

;pu t pa  r ame  t e r s : 
NADD 
I RET 

INTEGER 

INTEGER 

file, 
are 

SELV,  STAT, 


Sounding 

f i 1 

e number 

Numb 

e r o 

f St 

at  i ons 

Stat 

i on 

iden 

t i f i e r s 

S t a t 

i on 

numb 

e r s 

Stat 

i on 

1 a t i 

tud  e s 

Stat 

i on 

long 

i tude  s 

Stat 

i on 

e 1 ev 

a t i ons 

Stat 

e s 

Coun 

trie 

s 

Number 

of 

s t 

a 

t i on 

s 

add 

ed 

Return 

code 

0 - 

no 

rma 

1 

r e 

t 

u 

r n 

-4  - 

f i 

1 e 

n 

o t 

0 

P 

en 

-6  - 

to 

o ma 

ny 

s 

t 

a t i o 

ns 

-21  - 

no 

n-  s 

t 

and 

a 

r 

d fi 

1 e 

adds  a list  of  stations  to  a sounding  data 
can  only  be  used  if  the  times  and  stations 
column  headers. 


ISTNM,  SLAT,  SLON, 
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24.2  SN_ATIM  - ADD  TIME 


This  subroutine  adds  a time  to  a sounding  data  file.  This 
subroutine  can  only  be  used  if  times  and  stations  are  not  mixed 
in  r ow  or  col umn  headers . 

SN^ATIM  ( ISNFLN,  DATTIM,  I RET  ) 


Input  parameters: 


I SNFLN 

INTEGER 

Sounding  file  number 

DATTIM 

CHAR* 

Da  t e/ 1 ime 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  not  open 
-5  - time  cannot  be  added 
-21  = non-standard  file 
-23  = time  is  invalid 
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24 . 3 SN_BEGS  - RESET  SEARCH 


This  subroutine  resets  the  search 
sounding  file.  It  does  not  reset 
station  set  by  SN_TSTN . 


pointers  to  the  beginning  of  a 
the  time  set  by  SN_STIM  or  the 


SN_JJEGS  ( ISNFLN,  I RET  ) 


Input  parameters: 

ISNFLN  INTEGER 


Sounding  file  number 


Output  parameters: 

I RET  I NTEGER 


Return  code 

0 — normal  return 
-4  - file  not  open 
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24.4  SN_CLOS  - CLOSE  SOUNDING  FILE 

This  subroutine  closes  a sounding  data  file.  This  subrout 
must  be  called  to  flush  local  data  buffers  if  anything  has 
written  to  the  file. 

SN_CLOS  ( ISNFLN,  I RET  ) 


Input  parameters: 

ISNFLN  INTEGER  Sounding  file  number 

Output  parameters: 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  -»  file  not  open 
- 13  - EM  error 


ne 

been 
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24.5  SN_CREF  - CREATE  SOUNDING  FILE 


Th is  subroutine  c 
file  will  store  t 
columns . I f the 
using  values  in  I 
packing  informat i 
single  word  is  a 1 
time  (HHMM)  . Th  i 


reates  a new  standard  sounding  da 
ime s as  rows  of  a EM  file  and  sta 
packing  flag,  PKFLG , is  set,  data 
SCALE,  I OF SET  and  IBITS.  Note  th 
on  from  a file.  If  the  station  t 
located  with  each  data  report  to 
s time  should  be  sent  to  SN_WDAT . 


t a f i 

le  . 

The 

t i ons 
wi  1 1 

a s 
be 

packed 

at  SN_CRFP  gets 
ime  flag  is  set 
store  the  repor 


t 


a 


The  data  source  values  are 


parameters  in  GEMINC:GEMPRM.  PRM. 


SN__CREF 


( FILNAM, 
I SCALE , 


IFLSRC,  NPARM,  PARMS , MAXSTN , MAXTIM,  PKFLG, 
IOFSET , IBITS,  STMFLG , I SNFLN , IRET) 


Input  parameters: 


FILNAM 

CHAR* 

IFLSRC 

INTEGER 

NPARM 

INTEGER 

PARMS 

(NPARM) 

CHAR*  4 

MAXSTN 

INTEGER 

MAXTIM 

INTEGER 

PKFLG 

LOGICAL 

I SCALE 

(NPARM) 

INTEGER 

IOFSET 

(NPARM) 

INTEGER 

IBITS 

(NPARM) 

INTEGER 

STMFLG 

LOGICAL 

Output  par 

ame  t e r s : 

I SNFLN 

INTEGER 

IRET 

INTEGER 

Surface  file  name 

Data  source 

Number  of  parameters 

Parameter  names 

Maximum  number  of  stations 

Maximum  number  of  times 

Packing  flag 

Scaling  factor 

Of  f s e t t e rm 

N umb er  of  bits 

Station  t ime  flag 

Sounding  file  number 
Re  turn  code 

0 = normal  return 
- file  not  created 
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24.6  SN_CRFP  - CREATE  USING  PACKING  FILE 


This  subroutine  creates  a new  sounding  data  file.  The  file  will 
have  times  stored  as  rows  of  the  DM  file  and  stations  stored  as 
columns  If  the  station  time  flag  is  set,  a single  word  is 
allocated  with  each  data  report  to  store  the  report  time  (HHMM) . 
This  time  should  be  sent  to  SN_WDAT.  The  parameter  packing  flag 
is  set  if  the  data  will  be  packed  internally  according  to  the 
format  in  PRMFIL.  Note  that  SN_CREF  includes  the  packing 
information  in  its  arguments. 

The  data  source  values  are  parameters  in  GEMINC : GEMPRM. PRM. 

SN_CREF  ( FILNAM,  PRMFIL,  IFLSRC,  MAXSTN,  MAXTIM,  STMFLG  ISNFLN 
NPARM,  PARMS,  PKFLG , I RET  ) ’ I oiNrLN , 


Input  parameters: 
FILNAM 
PRMFIL 
IFLSRC 
MAXSTN 
MAXTIM 
STMFLG 

Output  parameters 
I SNFLN 
NPARM 

PARMS  (NPARM) 
PKFLG 
I RET 


CHAR* 

CHAR* 

INTEGER 

INTEGER 

INTEGER 

LOGICAL 


INTEGER 
INTEGER 
CHAR*  4 
LOGICAL 
INTEGER 


Sounding  file  name 
Parameter  packing  file  name 
Da  t a source 

Maximum  number  of  stations 
Maximum  number  of  times 
Station  time  flag 

Sounding  file  number 
Number  of  parameters 
Par  ame  ter  n ame  s 
Parameter  packing  flag 
Return  code 

0 - n o rma  1 return 
"1  ” file  not  created 


Parameter  packing  file 


for  specifies  the  parameters  and  packing  information 
inf  unding  file.  Each  line  must  contain  the  following 
information  separated  by  blanks  or  tabs:  lowing 


par  ame  ter  n ame 
minimum  data  value 
maximum  data  value 
resolution 


CHAR*  4 
REAL 
REAL 
REAL 


The  nex?  1 u should  be  an  integral  value  of  10;  otherwise, 

^come  1 f TtrSW10n  WiU  bC  USCd  ( e-*-  res  “ -5  will 

and  maximum  alt  , t&  are  not  t0  he  packed,  the  minimum 
included  Mr  3alues  and  the  resolution  should  not  be 
th  ' 0 e that  either  all  of  the  par  ame  ters  or  none  of 

e parameters  must  have  packing  information. 
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24.7  SN__CRUA 


- CREATE  UNMERGED  FILE 


This  subroutine  creates  a sounding  data  file  which  has  ma  y 

and  significant  data  stored  separately.  If  the  packing  f 8* 
PKFLG,  is  set,  data  will  be  packed  using  standard  pac  mg  va 
If  the  station  time  flag  is  set,  a single  word  is  allocated  with 
each  data  report  to  store  the  report  time  (HHMM) . This  time 
be  sent  to  SN_WPRT.  TRPFLG  is  used  to  store  tropopause  data  a 


is  not  implemented  yet. 

The  data  source  values  are 

parameters  in  GEMINC:GEMPRM.  PRM. 

SN  CRUA  ( FILNAM, 

IFLSRC, 

IPTYPE, 

MAXSTN,  MAXTIM,  PKFLG,  STMFLG, 

TRPFLG, 

I SNFLN , 

I RET  ) 

Input  parameters: 

FILNAM 

CHAR* 

Sounding  file  name 

IFLSRC 

INTEGER 

Data  source 

IPTYPE 

INTEGER 

Data  parts  to  be  stored: 

MAXSTN 

INTEGER 

1 - man  below  100  mb 

2 - man  & sig  below  100  mb 

3 - man  & sig  below  & above 
Maximum  number  of  stations 

MAXTIM 

INTEGER 

Maximum  number  of  times 

PKFLG 

LOGICAL 

Packing  flag 

STMFLG 

LOGICAL 

Station  time  flag 

TRPFLG 

LOGICAL 

Tropopause  flag 

Output  parameters: 
I SNFLN 

INTEGER 

Sounding  file  number 

I RET 

INTEGER 

Return  code 

0 
- 1 
-22 


file  not  created 
invalid  part  type 


24-13 


SOUNDING  CSN)  LIBRARY 


24.8  SN_DDAT  - DELETE  DATA 


This  subroutine  deletes  data  for  a particular  station  and  time 
from  a sounding  data  file.  The  time  and  station  must  be  set 
before  calling  this  subroutine. 

sn_ddat  c isnfln,  I ret  ) 


Input  parameters: 

ISNFLN  INTEGER 

Output  parameters: 

!RET  INTEGER 


Sounding  file  number 

Re  turn  code 

0 - n o rma  1 return 
-7  = location  not  set 
-15  = delete  error 
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24.9  SN_DSTN  - DELETE  STATION 


This  subroutine  deletes  a 
data  corresponding  to  the 
station  headers. 


station  from  a sounding  file.  All 
station  will  be  deleted  along  with 


SN_PSTN  ( ISNFLN,  STN , I RET  ) 


Input  parameters: 

ISNFLN  INTEGER 

STN  CHAR* 


Sounding  file  number 
Station  number  or  id 


Output  parameters: 

trET  INTEGER  Return  code 

0 = no rma  1 return 
-4  = file  not  open 
-15  - delete  error 


the 

the 
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24.10  SN_J)TIM  - DELETE  TIME 


This  subroutine  deletes  a time  from  a sounding  file.  All 
corresponding  to  the  time  will  be  deleted  along  with  the 
storing  the  time. 

SN_J[)TIM  ( I SNFLN , DATTIM,  IRET  ) 

Input  parameters: 

I SNFLN  INTEGER 

DATTIM  CHAR* 

Output  parameters: 

I RET  INTEGER 


Sounding  file  number 
GEMPAK  date/ time 


Return  code 

0 - normal  return 
- 4 - file  not  open 
-15  - delete  error 


the  data 
headers 
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24.11  SNJSTN 


FIND  STATION 


This  subroutine  finds  the  location  of  ^ 1 s * ^ t i o^ i s set 

first  row  or  column  containing  the  static 

This  subroutine  may  only  be  used  when 

not  mixed  in  row  or  column  headers  in  the 
faster  than  the  SN_Sxxx  or  SN_Txxx 

The* time  may  be  set  using  SN_ETIM.  These  subroutines  may  be 
called  in  either  order. 


a EM  file.  The 
in  the  common  area 
times  and  stations  are 
file.  It  will  execute 


SN_FSTN  ( ISNFLN,  STID,  IRET  ) 

Input  parameters: 

ISNFLN  INTEGER 

STID  CHAR* 

Output  parameters: 

IRET  INTEGER 


Sounding  file  number 
Station  number  or  id 


Return  code 

0 = normal  return 
-4  = file  not  open 
-11  - station  not  found 
-21  - non-standard  file 
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24.12  SN_JFTIM  - FIND  TIME 


7?  ! wbl ?“ the  location  of  the  specified  date/time 

^ flle*  The  first  row  or  column  containing  the  time  is  set  in 
the  common  area.  This  subroutine  may  only  be  used  when  times  and 
stations  are  not  mixed  in  row  or  column  headers  in  the  file 
It  will  execute  faster  than  the  SN__Sxxx  or  SN_Txxx  subroutines 
whe  18  ^“tended  to  be  used  only  for  real-time  ingest  programs 
r*  structure  of  the  file  is  known  by  the  progranmfr. 

"Mi i“i,' sfLjsTN-  Th',e  subr»“ti“!  -j »« 


SN— TTIM  ( ISNFLN,  DATTIM,  I RET  ) 


Input  parameters: 

I SNFLN 
DATTIM 

INTEGER 

CHAR* 

Sounding  file 
Da  t e / t ime 

numbe  r 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 - normal 

return 

■4  — file  not  open 
-15  - time  not  set 
-21  - non-standard  file 
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24.13  SN_GTIM  - GET  LIST  OF  TIMES 


This  subroutine  returns  a list  of 
data  file.  The  times  are  ordered 

times  available  in  a sounding 
f r om  the  earliest  to  the  latest 

SN_GTIM  C ISNFLN, 

MAXTIM,  NTIME, 

TIMLST,  I RET  ) 

Input  par  ame  t e r s : 
ISNFLN 
MAXTIM 

INTEGER 

INTEGER 

Sounding  file  number 
Maximum  number  of  times 

Output  parameters: 
NTIME 

TIMLST  (NTIME) 

I RET 

INTEGER 

CHAR* 

INTEGER 

Number  of  times  returned 
GEMPAK  t ime  s 
Return  code 

0 = normal  return 
-4  = file  not  open 
-14  = too  many  times  in  file 
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24.14  SN_MAND  - SET  MANDATORY  FLAG 


This  subroutine  allows  the  user  to  set  a flag  requesting 
mandatory  data  be  returned  when  the  upper-air  dataset  is 
unmerged  file.  The  default  is  to  merge  all  data. 


that  only 
an 


SNJdAND  ( ISNFLN,  MANDAT,  I RET  ) 


I npu  t par  ame  t e r s : 

ISNFLN  INTEGER 

MANDAT  LOG I CAL 

Output  parameters: 

IRET  INTEGER 


Sounding  file  number 
Only  mandatory  data  flag 


Return  code 

0 - n o rma  1 return 
-4  — file  not  open 
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24.15  SN_MTYP  - DEFINE  DATA  MERGE  TYPE 


This  subroutine  specifies  the  type  of  interpolation  to  be  used 
E”»I.  height  field  in  ,n  unmerged  data  set  This  tnt.rpo  a^ 
adds  heights  to  significant  temperature  levels.  The  default  me  g 
type  is  3.  If  IZTYPE  is  1,  the  height  will  be  interpolated  wi 
lespeit  to  the  logarithm  of  pleasure.  If  IZTYPE  is  2,  the  moist 
hydrostatic  height  field  is  computed.  If  IZTYPE  is  ' 1 * the 

hydrostatic  field  is  computed  as  in  2,  but  is  scaled  to 
height  values  received  with  the  mandatory  data. 


SN_MTYP  ( I SNFLN , IZTYPE,  I RET  ) 


Input  parameters: 

I SNFLN  INTEGER 

IZTYPE  INTEGER 


Sounding  file  number 

Type  of  height  interpolation 

1 = intwrt  log  p 

2 = moist  hydrostatic  comp 

3 = scaled  moist  hydro  comp 


Output  parameters: 

I RET  INTEGER 


Return  code 

0 « normal  return 
-4  = file  not  open 
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24.16  SN_OPNF  - OPEN  SOUNDING  FILE 


This  subroutine  opens  an  existing 

sounding  data  file. 

SN_OPNF  ( FILNAM, 
MRGDAT , 

WRTFLG , I SNFLN , 
I RET  ) 

IFLSRC,  NPARM,  PARMS,  I VERT, 

Input  parameters: 
FILNAM 
WRTFLG 

CHAR* 

LOGICAL 

Sounding  file  name 
Write  access  flag 

Output  parameters: 
I SNFLN 
IFLSRC 
NPARM 

PARMS  C NPARM) 

I VERT 
MRGDAT 
I RET 

INTEGER 

INTEGER 

INTEGER 

CHAR*  4 

INTEGER 

LOGICAL 

INTEGER 

File  numbe  r 
Da  t a source 
Number  of  parameters 
Parameter  names 
Vertical  coordinate 
Merged  data  flag 
Re  turn  code 

0 -no  rma 1 return 
"2  “ file  could  not  be  opened 
-7  - file  not  sounding  file 
-24  - file  name  is  blank 
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24.17  SN_OPNR 


OPEN  REAL-TIME  SOUNDING  FILE 


This  subroutine  opens  an  existing  sounding  data  file  for  real-time 
data  ingest.  The  file  is  opened  for  shared  write  access.  Thi 
subroutine  should  not  be  used  for  non-real-time  applications. 


SN_OPNR  ( 


FILNAM, 
I RET  ) 


ISNFLN,  IFLSRC,  NPARM,  PARMS , I VERT , MRGDAT , 


Input  parameters: 
FILNAM 


CHAR* 


Sounding  file  name 


Output  parameters: 

ISNFLN  INTEGER 

IFLSRC  INTEGER 

NPARM  INTEGER 

PARMS  (NPARM)  CHAR *4 
I VERT  INTEGER 

MRGDAT  LOGICAL 

I RET  INTEGER 


Sounding  file  number 
Data  source 
Number  of  parameters 
Par  ame  ter  n ame  s 
Vertical  coordinate 
Merged  data  flag 
Return  code 

0 - normal  return 
- 2 - file 
-7  - file 
-24  - file 


could  not  be  opened 
not  s ound i ng  file 
name  is  blank 
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24.18  SN_QDAT  - CHECK  FOR  DATA 


Th is  subroutine  sets  a flag  indicating  wh ether  data  for  the 
current  station  and  time  are  stored  in  a file.  If  the  data 
are  not  merged,  only  the  mandatory  below  and  above  100  mb  and 
the  significant  t emp  erature  bel  ow  100  mb  data  are  checked. 

SN_QDAT  ( ISNFLN,  DATFLG , I RET  ) 

Input  parameters: 

ISNFLN  INTEGER  Sounding  file  number 

Output  parameters: 

DATFLG  LOGICAL  Data  present  flag 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  - file  not  open 
-8  - location  not  set 


24-24 


SOUNDING  (SN)  LIBRARY 


24.19  SN_QSTN  - GET  STATION  INFORMATION 

This  subroutine  gets  station  information  for  the  current  station 
Both  the  time  and  station  must  be  set  before  this  subroutine  is 
called. 

SN_QSTN  ( ISNFLN,  ST ID,  ISTNM,  SLAT,  SLON,  SELV,  STAT , COUN , 
IRET  ) 


Input  parameters: 

I SNFLN 

INTEGER 

Sounding  file  number 

Output  parameters: 

STID 

CHAR *4 

Station  identifier 

ISTNM 

INTEGER 

Station  number 

SLAT 

REAL 

Station  latitude 

SLON 

REAL 

Station  long i tud e 

SELV 

REAL 

Station  elevation 

STAT 

CHAR*  2 

State 

COUN 

CHAR*  2 

Country 

IRET 

INTEGER 

Return  code 

0 - n o rma  1 return 
-4  - file  not  open 
-8  - location  not  set 
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24.20  SN_RDAT  - READ  DATA 


This  subroutine  reads  data  from  a sounding  data  file.  The  time 
and  station  mu st  be  set  before  calling  this  subroutine. 

SN_RDAT  ( ISNFLN,  NLEV,  DATA,  IHHMM,  I RET  ) 


Input  parameters: 

ISNFLN  INTEGER 

Output  parameters: 

NLEV  INTEGER 

DATA  ( * ) REAL 

IHHNW  INTEGER 

I RET  INTEGER 


Sounding  file  number 

Number  of  levels 
Station  data 
Station  hour  and  minute 
Return  code 

1 - no  data  at  station 
0 - normal  return 
-4  - file  not  open 
-8  - location  not  set 
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24.21  SN_RPRT  - READ  PART  FROM  UNMERGED  FILE 


This  subroutine  reads  data  from  a sounding  data  file.  This 
subroutine  will  only  read  data  from  an  unmerged  data  file. 

The  valid  part  names  are:  TTAA,  TTBB , PPBB,  TTCC,  TTDD  and  PPD 
The  flag,  ZWIND,  is  used  only  for  significant  wind  data  (PPBB 
or  PPDD) . If  set,  the  winds  are  reported  on  height  surfaces; 
otherwise,  the  report  is  on  pressure  surfaces. 

SN_WPRT  ( ISNFLN,  PART,  IHHMM,  NLEV , DATA,  ZWIND,  I RET  ) 


Input  parameters: 

ISNFLN  INTEGER  Sounding  file  number 

PART  CHAR* 4 Part  name 


Output  parameters: 

IHHMM  INTEGER  Station  time  (HHMMJ 

NLEV  INTEGER  Number  of  levels 

DATA  (*)  REAL  Sounding  data  array 

ZWIND  LOGICAL  Flag  for  sig  wind  in  z coord 

IRET  INTEGER  Return  code 

0 - normal  return 
-4  - file  not  open 
-8  - station  not  set 
- 1 3 - DM  error 
-17  - invalid  merge  type 
-22  - invalid  part  name 
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24.22  SN_J1TYP  - GET  LEVEL  TYPES 


This  subroutine  returns  the  report  type  for 
sounding.  IDTYPEwill  be  set  to  1,  2,  or  3 
significant  temperature  or  significant  wind 
data  set  contains  merged  data,  all  the  data 
to  1 . 


each  1 eve  1 in  a 
for  manda  t o ry , 
data.  If  the 
flags  will  be  set 


SN_RTYP  ( ISNFLN,  NLEV,  IDTYPE , I RET  ) 


Input  parameters: 

ISNFLN  INTEGER 

Output  parameters: 

NLEV  INTEGER 

IDTYPE  (NLEV)  INTEGER 


I RET  INTEGER 


Sounding  file  number 


N umb er  of  levels 
Report  type  flags 

1 = mandatory 

2 = s i g t emp  e r a t u r e 

3 « sig  wind 
Return  code 

0 = normal  return 
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24.23  SN SNXT 


- GET  NEXT  STATION 


This  subroutine  selects  the  next  station  in  a sounding  file. 
SN_STIM  mu  s t be  called  to  set  the  time  before  this  subroutine 
is  called.  Stations  to  be  found  may  be  set  in  LC_SARE  or 
LC__UARE . Data  for  this  station  may  be  returned  or  written  by 
calling  SN__RDAT  or  SNJVDAT , respectively. 


SN_SNXT  ( I SNFLN , 

STID,  ISTNM, 

SLAT,  SLON,  SELV,  I RET 

Input  parameters: 

I SNFLN 

INTEGER 

Sounding  file  number 

Output  parameters: 

Station  identifier 

STID 

CHARM 

ISTNM 

INTEGER 

Station  number 

SLAT 

REAL 

Station  latitude 

SLON 

REAL 

Station  1 ong i tude 

SELV 

REAL 

Station  elevation 

I RET 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  not  open 
- 9 = no  mo  re  s t a t i 
- 1 9 « t ime  not  set 
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24.24  SN SSTN  - SET  PARTICULAR  STATION 


This  subroutine  selects  a station  in  a sounding  file.  SN STIM 

mu  st  be  called  before  this  subroutine  is  called.  Th  is  subroutine 
will  delete  any  searches  set  by  LC_SARE.  Data  for  this  station 
can  be  returned  or  written  by  calling  SN _J1DAT  or  SN.JVDAT, 
respectively. 


SN_SSTN  ( ISNFLN, 

STN,  STID, 

ISTNM,  SLAT,  SLON,  SELV,  I RET  ) 

Input  parameters: 

I SNFLN 

INTEGER 

Sounding  file  number 

STN 

CHAR* 

Station  id  or  number 

Ou  t p u t par  ame  t e r s : 

STID 

CHAR*  4 

Station  identifier 

ISTNM 

INTEGER 

Station  number 

SLAT 

REAL 

Station  latitude 

SLON 

REAL 

Station  1 ong i tud  e 

SELV 

REAL 

Station  elevation 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-4  = file  not  open 
-11  = station  not  in  file 
- 1 9 = t ime  not  set 
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24.25  SN STIM  - SET  TIME  FOR  STATION  SEARCH 


This  subroutine  sets  the  time  in  a sounding  file.  All  lat 
station  searches  will  return  stations  corresponding  to  thi 

SN STIM  ( ISNFLN,  DATTIM,  I RET  ) 

Input  parameters: 

ISNFLN  INTEGER  Sounding  file  number 

DATTIM  CHAR*  GEMPAK  date/ time 

Output  parameters: 

I RET  INTEGER 


Return  code 

0 = normal  return 
-4  = file  not  open 
-12  = time  not  in  file 


e r 

s t ime  . 
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24.26  SN_STNF  - ADD  STATIONS  FROM  TABLE  FILE 


This  subroutine  adds  stations  from  a table  file  to  a sounding  file. 
This  subroutine  can  only  be  used  if  the  times  and  stations  are 
not  mixed  in  row  and  column  headers. 


SN_STNF  ( ISNFLN,  TBFILE , I RET  ) 


Input  parameters: 

I SNFLN 

INTEGER 

Sounding  file  number 

TBFILE 

CHAR* 

Station  table  file  name 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 - n o rma  1 return 
-4  - file  not  open 
-6  - too  many  stations 
-18  — station  file  not  opened 
-21  - non-standard  file 
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24.27  SN_TNXT  - GET  NEXT  STATION 


This  subroutine  selects  the  next  time  in  a sounding  file.  SN_TSTi 
must  be  called  to  set  the  station  before  this  subroutine  is  called 
The  times  will  be  returned  in  the  order  in  which  they  appear  in 
the  file  rather  than  in  chronological  order.  Data  for  this  time 
may  be  returned  or  written  by  calling  SN_RDAT  or  SN_WDAT , 
respect ive ly . 

SN_TNXT  ( ISNFLN,  DATTIM,  I RET  ) 

Input  parameters : 

ISNFLN  INTEGER  Sounding  file  number 

Output  parameters: 

DATTIM  CHAR*  GEMPAK  date/ time 

IRET  INTEGER  Return  code 

0 = n o rma  1 return 
-4  = file  not  open 
-10  = no  more  times 
-20  = station  not  set 
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24.28  SN_TSTN 


This  subroutine  se 
time  searches  will 

SN_TSTN  ( I SNFLN , 

Input  parameters: 

I SNFLN 
STN 

Output  parameters: 
I RET 


SET  STATION  SEARCH 


s the  station  in  a sounding  file.  All  later 
return  times  corresponding  to  this  station. 

STN,  I RET  ) 


INTEGER  Sounding  file  number 

CHAR*  Station  number  or  id 


INTEGER 

Re  turn 

code 

0 - 

n o rma  1 

return 

-4  - 

file  no 

t open 

-11  - 

station 

not  in  file 
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24.29  SN_TT IM  - SET  PARTICULAR  TIME 


This  subroutine  sets  the  time  in  a sounding  file.  SN_TSTN 
be  called  before  this  subroutine  is  called.  Data  for  this 
can  be  returned  or  written  by  calling  SN_JtDAT  or  SN_WDAT, 
respectively. 

SN_TTIM  ( ISNFLN,  DATTIM,  I RET  ) 


Input  parameters: 

ISNFLN  INTEGER  Sounding  file  number 

DATTIM  CHAR*  GEMPAK  date/ time 


Output  parameters: 

I RET  INTEGER 


Return  code 

0 = normal  return 
-4  = file  not  open 
-12  = time  not  found 
-20  = station  not  set 


mu  s t 
t ime 
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24.30  SN_USTN  - UPDATE  STATION  INFORMATION 


This  subroutine  updates  the  header  information  for  a station  in  a 
sounding  data  file.  This  subroutine  can  only  be  used  if  the  times 
and  stations  are  not  mixed  in  row  or  column  headers. 

SN_USTN  ( ISNFLN,  STID,  ISTNM,  SLAT,  SLON,  SELV,  STAT,  COUN , 
KEYNAM,  I RET  ) 


Input  parameters: 

I SNFLN 

INTEGER 

Sounding  file  number 

STID 

CHAR* 

Station  number  or  id 

ISTNM 

INTEGER 

Station  numbe r 

SLAT 

REAL 

Station  latitude 

SLON 

REAL 

Station  longitude 

SELV 

REAL 

Station  elevation 

STAT 

CHAR*  2 

State 

COUN 

CHAR *2 

Country 

KEYNAM 

CHAR*  4 

Key  to  update  (STID  or  STNM) 

Output  parameters: 

I RET 

INTEGER 

Return  code 

0 - normal  return 
-4  - file  not  open 
-11  - station  not  in  file 
- 1 3 - DM  error 
-21  - non-standard  file 
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24.31  SN_WDAT  - WRITE  DATA 


This  subroutine  writes  data  to  a sounding  data  file.  The  time 
and  station  must  both  be  set  before  this  subroutine  is  called. 

The  station  time  will  be  stored  if  the  station  time  flag.  STMF 

was  set  when  the  file  was  created.  This  subrou t i ne  will  on  1 y 

write  data  to  a merged  data  file.  The  subroutine  SN_WPRT  mus 
used  to  write  data  to  an  unmerged  file. 


SN_WDAT  ( ISNFLN,  IHHMM,  NLEV , DATA,  I RET  ) 


Input  parameters: 

ISNFLN  INTEGER 
IHHMM  INTEGER 
NLEV  INTEGER 
DATA  ( * ) REAL 


Sounding  file  number 
Station  time  (HHMM) 

N umb er  of  levels 
Sounding  data  array 


Output  parameters: 

I RET  INTEGER 


Return  code 

0 - normal  return 
-4  - file  not  open 
-8  = station  not  set 
- 13  - DM  error 
-17  - invalid  merge  type 
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24.32  SN_WPRT  - WRITE  PART  TO  UNMERGED  FILE 


This  subroutine  writes  data  to  an  unmerged  sounding  data  file.  The 

time  and  station  must  both  be  set  before  this  subroutine  is  called. 

The  station  time  will  be  stored  if  the  station  time  flag,  STMFLG, 
was  set  when  the  file  was  created.  This  subroutine  will  only 
write  data  to  an  unmerged  data  file.  The  subroutine  SNJVDAT  must 
be  used  to  write  data  to  a merged  file.  The  valid  part  names 

are:  TTAA,  TTBB , PPBB , TTCC,  TTDD  and  PPDD.  The  flag,  ZWIND, 

is  used  only  for  significant  wind  data  (PPBB  or  PPDD).  If  set, 
the  winds  are  reported  on  height  surfaces;  otherwise,  the  report 
is  on  pressure  surfaces. 

SN_VVPRT  ( ISNFLN,  PART,  IHHMM,  NLEV,  DATA,  ZWIND,  I RET  ) 

Input  parameters: 

ISNFLN  INTEGER 

PART  CHAR* 4 

IHHMM  INTEGER 

NLEV  INTEGER 

DATA  C * ) REAL 

ZWIND  LOGICAL 

Output  parameters: 

IRET  INTEGER  Return  code 

0 = normal  return 

-4  = file  not  open 
-8  = station  not  set 
- 1 3 = DM  error 
-17  = invalid  merge  type 
-22  = invalid  part  name 


Sounding  file  number 
Part  n ame 

Station  time  (HHMM) 

N umb er  of  levels 

Sounding  data  array 

Flag  for  sig  wind  in  z coord 
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SYSTEM  SERVICES  (SS)  LIBRARY 


SS_CURS 
S S_EX  I T 
SS_GSYM 
SS_GTIM 

SS I RET 

S S_PAGE 

SS PATH 

SS_WAIT 


Move  cursor  to  specified  line 

Terminate  a program 

Get  symbol  value 

Get  the  system  time 

Set  I/O  return  codes 

Clear  terminal  screen 

Change  pathname  for  file 

Halt  program  for  specified  time 
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System  Services  (SS)  Library  Summary 


The  system  services  library  contains  ma ch i nc - d epend en t system- 
service  calls  in  order  to  isolate  them  for  conversion  to  other 
machine  s . 

The  routines  SS_GLUN  and  SS_FLUN  have  been  replaced  by  FORTRAN 
standard  routines,  FL_GLUN  and  FL_FLUN . 

SS — I RET  translates  the  IOSTAT  return  from  a FORTRAN  I/O  call  into 
a GEMPAK  FL  error  number. 

SS_GSYM  returns  the  value  of  a VMS  symbol.  It  is  only  used  in 
the  TAE  (IP)  library  to  determine  whether  the  user  is  in  the  TAE 
or  not . 

S S_GT IM  returns  the  current  system  clock  time  in  GEMPAK  format. 

It  is  used  in  real-time  data  decoders  to  complete  the  bulletin 
t ime  . 

The  subroutines  SS — .CURS  and  SS PAGE  allow  the  programmer  control 

over  the  output  display.  They  are  not  generally  called  by  GEMPAK 
programs  and  can  be  replaced  by  subroutines  which  do  nothing. 
SS—WAI T is  included  for  convenience.  The  FL  routines  that  use 
S S_WA I T are  likely  to  need  rewriting  for  non-VMS  systems,  so  it  is 
possible  that  S S_\V\ IT  also  can  be  replaced  by  a d ummy  subrout ine 
in  ports  to  non-VMS  systems. 


ERROR  MESSAGES: 


[SS  208] 
[SS  204] 
[SS  -1] 


The  logical  unit  number  was  not  freed. 
There  are  no  more  logical  unit  numbers. 
System  service  error. 
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SS  Library  Calls 

SS_CURS 

( line,  / iret  ) 

SS_GSYM 

( symnam,  / symval,  iret  ) 

SS_GTIM 

( / dattim,  iret  ) 

SS I RET 

( iostat  , / iflerr,  iret  ) 

S S__PAGE 

( / iret  ) 

SS PATH 

( filnam,  path,  / newfil,  iret  ) 

SS.JWAIT 

( nsec,  / iret  ) 
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25.1  SS_CURS  - MOVE  CURSOR  TO  SPECIFIED  LINE 


Th  i s 
line 


subroutine  moves 


the  cursor  to  the  beginning  of 


the  specified 


SS_CURS  ( LINE,  I RET  ) 

Input  parameters: 

line  INTEGER 

Output  parameters: 

I RET  INTEGER 


Line  on  which  to  put 


cursor 


Return  code 
0 - normal 
-1  - system 


return 

service  error 
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25.2  s S EX  I T - TERMINATE  A PROGRAM 


This  subroutine  terminates  program  execution.  It  has  no  in 
output  parameters. 

S S EX  I T 


u t or 
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25.3  SS_GSYM  - GET  SYMBOL  VALUE 


This  subroutine  gets  the  value  of  a symbol  defined  on  a VMS  system 
SS_GSYM  ( SYMNAM,  SYMVAL , I RET  ) 


Input  parameters: 
SYMN/A1 

CHAR* 

Symbol  name 

Output  parameters: 
SYMVAL 
I RET 

CHAR* 

INTEGER 

Symbol  value 
Return  code 
0 = n o rma  1 
- 1 — s ymb  o 1 

return 
not  f ound 
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25.4  SS_GTIM  - GET  THE  SYSTEM  TIME 


This  subroutine  returns 
date/t ime  . 


the  current  system  clock  time  as  a GEMPAK 


SS_GTIM  ( DATTIM,  I RET  ) 


Ou  t pu  t par  ame  ters  : 

DATTIM  CHAR* 

I RET  INTEGER 


System  time  in  GEMPAK  format 
Return  code 

0 - normal  return 
-1  - system  service  error 
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25.5  SS_IRET  - SET  I/O  RETURN  CODES 


This  subroutine  takes 
statement  and  determin 
GEMPAK  routines  expect 


the  IOSTAT  value  returned  from  a FORTRAN  I/O 
es  the  GEMPAK  message  number  for  the  error. 
IFLERR  = 0 for  a normal  return. 


SS — I RET  ( IOSTAT,  IFLERR,  I RET  ) 


Input  parameters: 

IOSTAT  INTEGER 

Output  parameters: 

IFLERR  INTEGER 

IRET  INTEGER 


Status  fr om  I/O  operation 

GEMPAK  file  error 
Return  code 

0 - normal  return 
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25.6  S S PAGE 


CLEAR  TERMINAL  SCREEN 


This  subroutine  clears  the  terminal  screen 

S S PAGE  C I RET  ) 

Output  parameters: 


I RET 


INTEGER 


Re  turn  code 

0 - normal  return 
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25.7  SS — PATH  - CHANGE  PATHNAME  FOR  FILE 


This  subroutine  takes  an  input  f 
actual  file  to  the  path.  If  a p 
file,  it  is  replaced  by  PATH. 

SS — PATH  ( FILNAM,  PATH,  NEWFIL, 

Input  parameters: 

FILNAM  CHAR* 

PATH  CHAR* 

Output  parameters: 

NEWFIL  CHAR* 

I RET  INTEGER 


le  and  path  name  and  appends  the 
th  was  specified  in  the  input 


I RET  ) 


I npu  t file  name 

Path  name  for  output  file 

Output  file  name 
Return  code 

0 — normal  return 
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25.8  SS_WAIT 


This  subroutine  1 
seconds  (7  minut 

SS__WAIT  ( NSEC, 

Input  parameters 
NSEC 

Ou  t p u t par  ame  ter 
I RET 


SYSTEM  SERVICES  (SS)  LIBRARY 

- HALT  PROGRAM  FOR  SPECIFIED  TIME 

alts  the  execution  of  a program  for  up  to 
s ) . 

I RET  ) 

INTEGER  Number  of  seconds  to  wa 

INTEGER  Return  code 

0 = normal  return 


420 
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STRING  (ST)  LIBRARY 


ST__ABBR 

ST_ALNM 

ST_C2C 

ST_C2 I 

ST__C2R 

ST_CLST 

ST_CRNM 

ST_CTOI 

ST__F  IND 

ST _FWRD 

ST ILST 

ST INCH 

ST_INLN 
ST_I  NTG 

ST I TOC 

ST ITOS 

ST __LCUC 
ST_XDSP 
ST_XSTR 
ST _NOCC 
ST _NUMB 
ST_NXTS 
ST_JLANG 
ST_RLCH 
ST _JILST 
ST_RMBL 
ST_RMST 
ST _RNAN 
ST_JIXBL 

ST STOI 

ST_UCLC 

ST_UNPR 

ST_UTAB 


Check  for  abbreviation 
Check  for  alphanumeric  character 
Convert  string  to  character  array 
Convert  string  to  integer  array 
Convert  string  to  real  array 
Convert  character  list  to  array 
Decode  real 

Store  characters  in  integers 
Find  a string  in  a list 
Find  Nth  word  in  a string 
Convert  integer  list  to  array 
Encode  integer 
Encode  integer 
Decode  integer 

Recover  strings  from  integers 

Recover  string  from  integer  array 

Convert  string  to  upper  case 

Remove  leading  spaces 

Find  length  of  string 

Find  Nth  occurrence  of  character 

Decode  integer 

Search  string  for  substring  list 
Get  range  1 imi  t s 
Encode  real  number 
Convert  real  list  to  array 
Remove  blanks 

Find  a substring  within  a string 
Remove  non  - a 1 phanume r i c s 
Remove  extra  blanks 
Store  string  in  integer  array 
Convert  string  to  lower  case 
Remove  control  characters 
Replace  tabs  with  spaces 
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String  (ST)  Library  Summary 


The  GEMPAK  string  library  provides  subroutines 
character  strings.  These  subroutines  are  used 
throughout  GEMPAK . 


to  simplify  handling 
extensively 


*?ut*nes  convert  strings  to  upper  or  lower  case  (ST _JXUC  and 
5i_UGLLJ,  determine  the  1 eng th  wi  thou t trailing  blanks  ( STJLSTR ) 

(ST^NM)adin8  SPaCCS  (ST-XDSP)*  and  check  for  alphanume  ric  characters 


The  routines  ST_C2C,  ST_C2 I , and  ST_C2R  separate  a character 
into  arrays  of  characters,  integers  or  reals.  Separators  are 
non-alphan  ume  ric  character,  except  period,  plus,  minus,  or 
asterisk.  ’ 


string 

any 


The  routines  ST_CLST,  ST_ILST,  and  ST_J!LST  also  separate  lists 
into  arrays.  In  this  case,  the  separator  must  be  specified  (and 
may  not  be  a blank)  and  a default  value  is  inserted  for 
unspecified  values.  These  subroutines  are  especially  useful  for 


The  routines  ST_INCH,  ST_RLCH,  ST^NUMB, 
decode  integers  and  real  numbers. 


and  ST CRNM  encode  and 


ERROR  MESSAGES: 


[ST  1] 
[ST  -1] 
[ST  -2] 
[ST  -3] 
[ST  -4] 
[ST  -5] 


More  than  the  expected  number  of  values  entered. 
Invalid  input  string. 

Conversion  error. 

Substring  not  found  or  invalid. 

Word  not  found. 

Nth  occurrence  not  found. 
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ST  Library  Calls 

ST_^ABBR  ( string,  stabbr,  / abbr  , iret  ) 

ST_^ALNM  ( chrstr,  / ityp,  iret  ) 

ST—C2C  ( string,  nexp,  / strarr,  num,  iret  ) 

ST_C2I  ( string,  nexp,  / intarr,  num,  iret  ) 

ST_C2R  ( string,  nexp,  / rarr,  num,  iret  ) 

ST_CLST  ( string,  sep,  cdef,  nexp,  / carr,  num,  iret  ) 

ST_CRNM  ( string,  /value,  iret  ) 

ST_CTO I ( car  ray,  nval,  / iarray,  iret  ) 

ST__F  IND  ( string,  stlist,  nstr,  / ipos,  iret  ) 

ST-J^WRD  ( string,  ifirst,  ilast,  nword,  / istrt,  iend,  iret  ) 

ST ILST  ( string,  sep,  idef,  nexp,  / iarr,  num,  iret  ) 

ST I NCH  ( intg,  / string,  iret  ) 

ST_INLN  ( intg,  / string,  lens,  iret  ) 

ST_I  NTG  ( string,  / intg,  iret  ) 

ST_I TOC  ( iarray,  nval,  / carr ay,  iret  ) 

ST_I TOS  ( iarray,  nval,  / nchar,  string,  iret  ) 

ST_LCUC  ( string,  / outstr,  iret  ) 

ST_LDSP  ( string,  / outstr,  ncout,  iret  ) 

ST_LSTR  ( string,  / lens,  iret  ) 

ST_NOCC  ( string,  chocc,  nocc,  / ipoint,  iret  ) 

ST_NIJMB  ( string,  / ival,  iret  ) 

ST_NXTS  ( string,  ifirst,  ilast,  stlist,  ilens,  nstr,  / ipos, 

istrg,  iret  ) 

ST_RANG  ( string,  / first,  last,  inc,  itype,  iret  ) 

STJRLCH  ( r 1 num,  np,  / string,  iret  ) 
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ST_RLST 

ST_JtMBL 

ST__RMST 

ST_RNAN 

ST_RXBL 

ST_STOI 

ST_UCLC 

ST_UNPR 

ST_UTAB 


( string,  sep,  rdef,  nexp,  / rarr,  num,  iret  ) 
( string,  / outstr,  length,  iret  ) 

( string,  substr,  / ipos,  outstr,  iret  ) 

( string,  / outstr,  length,  iret  ) 

( string,  / outstr,  length,  iret  ) 

( string,  nchar,  / nval,  iarray,  iret  ) 

( string,  / outstr,  iret  ) 

( string,  lenin,  / outstr,  lenout,  iret  ) 

( string,  nchar,  / outstr,  iret  ) 
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26.1  ST_J^BBR  - CHECK  FOR  ABBREVIATION 


in  STABBR  is  an 
Both  strings  are 
is  done  . 

ST_jVBBR  ( STRING,  STABBR,  ABBR , I RET  ) 


This  subroutine  determines  whether  the  string 
abbreviation  (beginning  substring)  of  STRING, 
converted  to  upper  case  before  the  comparison 


Input  parameters: 

STRING  CHAR*  Full  string 

STABBR  CHAR*  Abbreviation 


Ou t pu t par ame  ters  : 

ABBR  LOGICAL 

I RET  INTEGER 


Abbreviation  flag 
Return  code 

0 - normal  return 
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26.2  ST_ALNM  - CHECK  FOR  ALPHANUMERIC  CHARACTER 


This  subroutine  determines  whether  a character  is  a letter 
or  non  - a 1 phanume  r i c character. 

ST_J\UNM  ( CHRSTR , ITYP,  IRET  ) 


Inpu  t par  ame  t e r s : 

CHRSTR 

CHARM 

Character  to  analyze 

Output  parameters: 

ITYP 

INTEGER 

Character  type 

0 - non- a 1 phanume r i c 

1 - number 

2 - letter 

IRET 

INTEGER 

Return  code 

0 - normal  return 

, number 
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26.3  ST_C2C  - CONVERT  STRING  TO  CHARACTER  ARRAY 


This  subroutine  breaks  a string  to  an  array  of  strings, 
string  separators  may  be  any  non- a 1 phanume r i c character 
a minus  sign  (-),  plus  sign  (+),  asterisk  ( * ) or  period 

ST_C2C  ( STRING,  NEXP , STRARR , NUM,  I RET  ) 

Input  parameters: 

STRING  CHAR*  String 

NEXP  INTEGER  Maximum  number  of  str 

Ou  t pu  t par  ame  t e r s : 

STRARR  (*) 

NUM 
I RET 


CHAR*  String  array 

INTEGER  Number  of  strings 

INTEGER  Return  code 

1 = more  than  NEXP 
0 = normal  return 
-1  * no  strings  inpu 


The 

except 

(.). 

ing  s 

strings 

t 
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26.4  ST_C2 I - CONVERT  STRING  TO  INTEGER  ARRAY 


This  subroutine  breaks  a string  to  an  array  of  integers.  The 
integers  may  be  separated  by  any  non- a lphanume  r i c character 
except  a minus  sign  (-),  a plus  sign  (+) , a period  (.)  or  an 
asterisk  (*). 


ST_C2 I ( STRING, 

NEXP,  INTARR, 

NUM,  IRET  ) 

Input  parameters: 

STRING 

CHAR* 

String 

NEXP 

INTEGER 

Maximum  number  of  integers 

Output  parameters 

INTARR  (*) 

INTEGER 

Integer  array 

NUM 

INTEGER 

Number  of  integers 

IRET 

INTEGER 

Return  code 

1 -more  than  NEXP  integers 
0 - n o rma  1 return 
-1  - invalid  string 
-2  - conversion  error 
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26.5  ST_C2R  - CONVERT  STRING  TO  REAL  ARRAY 


This  subroutine 
The  numbers  may 
except  a period 
asterisk  (*). 


converts  a string  into  an  array  of  real  numbers, 
be  separated  by  any  non- a 1 phanume  r i c character 
(.),  a plus  sign  (+),  a minus  sign  (-)  or  an 


ST_C2R  ( STRING,  NEXP , RARR , NUM,  I RET  ) 


Input  parameters: 

STRING  CHAR* 

NEXP  INTEGER 


Str ing 

Maximum  number  of  reals 


Output  parameters: 
RARR  (NUM) 

NUM 
I RET 


INTEGER 

INTEGER 

INTEGER 


Converted  real  array 
Number  of  converted  reals 
Return  code 

1 = more  than  NEXP  reals 
0 - n o rma  1 return 
-1  - invalid  string 
-2  - conversion  error 
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26.6  ST_CLST  - CONVERT  CHARACTER  LIST  TO  ARRAY 


Th is  subroutine  breaks  a string  containing  a list  of  strings  into 
an  array  of  strings.  The  separator  for  the  strings  is  input  as  SEP. 
If  the  separator  is  a blank,  multiple  blanks  will  be  changed  to 
single  blanks  before  the  string  is  processed.  If  null  strings 
are  encountered  or  fewer  than  NEXP  strings  are  found  in  the 
string,  the  appropriate  CARR  locations  are  set  to  CDEF . 


ST_CLST  ( STRING, 

SEP,  CDEF, 

NEXP,  CARR,  NUM,  IRET  ) 

Input  parameters: 

STRING 

CHAR* 

String 

SEP 

CHAR* 1 

Separator 

CDEF 

CHAR* 

De  fault  str i ng 

NEXP 

INTEGER 

Number  of  expected  values 

Output  par  ame  t e r s : 

CARR  (NUM) 

CHAR* 

Ar  ray  of  strings 

NUM 

INTEGER 

Number  of  strings  returned 

I RET 

INTEGER 

Return  code 

1 — more  than  NEXP  values 
0 - n o rma  1 return 
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26.7  ST_CRNM  - DECODE  REAL 


This  subroutine  converts  a character  string  to 
the  conversion  fails,  RMISSD  is  returned. 

ST_CRNM  ( STRING,  VALUE,  I RET  ) 

Input  parameters: 

STRING  CHAR*  String 

Output  par  ame  t e r s : 

VALUE  REAL 

I RET  INTEGER 


Real  number 
Return  code 
0 = normal 
-2  = conver 


real  numb e r . If 


return 
ion  error 
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26.8  ST_CTOI  - STORE  CHARACTERS  IN  INTEGERS 


This  subroutine  st 
array  of  integers. 
4-character  string 

ores  an  array 
Each  integer 
s . 

of  4-character  strings  in  an 
element  contains  one  of  the 

ST_CTOI  ( CARRAY, 

NVAL,  I ARRAY, 

I RET  ) 

Input  parameters: 
CARRAY  (NVAL) 
NVAL 

CHARM 

INTEGER 

Character  array 
Number  of  strings 

Output  parameters: 
I ARRAY  (NVAL) 

I RET 

INTEGER 

INTEGER 

Integer  array 
Return  code 

0 * n o rma  1 return 
-2  = conversion  error 
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26.9  STJIND  - FIND  A STRING  IN  A LIST 


This  subroutine  searches  for  a particular  string  in  a list  of 
strings.  The  position  in  the  array  is  returned  in  IPOS.  If 
string  is  not  found,  IPOS  is  set  to  0. 

ST_JFIND  ( STRING,  STLIST,  NSTR , IPOS,  IRET  ) 


Input  parameters: 

STRING  CHAR* 

STLIST  (NSTR)  CHAR* 
NSTR  INTEGER 


String 

List  of  strings 

Number  of  strings  in  list 


Output  parameters: 

IPOS  INTEGER 

IRET  INTEGER 


Position  of  string  in  list 
0 = not  found 
Return  code 

0 = normal  return 
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26.10  ST_pWRD  - FIND  NTH  WORD  IN  A STRING 


This  subroutine  returns  pointers  to  the  word  which  is  NWDRDs  after 
the  IFIRST  character  in  the  string.  Words  are  assumed  to  be 
delimited  by  blanks. 

ST-FWRD  ( STRING, 

IFIRST, 

I LAST, 

NW3RD,  ISTRT,  I END,  I RET  ) 

Input  parameters: 
STRING 
IFIRST 
I LAST 
NWORD 

CHAR* 

INTEGER 

INTEGER 

INTEGER 

String 

First  character  to  check 
Last  character  to  check 
Word  number 

Output  parameters: 
ISTRT 
I END 
I RET 

INTEGER 

INTEGER 

INTEGER 

Pointer  to  start  of  wo  r d 
Pointer  to  end  of  word 
Re  turn  code 

0 “ normal  return 

-4  - word  not  found 
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2 6.11  ST_I LST  - CONVERT  INTEGER  LIST  TO  ARRAY 


This  subroutine  breaks  a string  containing  a list  of  integers  into 
an  array  of  integers.  The  separator  for  the  integers  is  input  as 
SEP.  If  the  separator  is  a blank,  multiple  blanks  will  be  changed 
to  single  blanks  before  the  string  is  processed.  If  null  strings 
are  encountered  or  fewer  than  NEXP  strings  are  found  in  the 
string,  the  appropriate  IARR  locations  are  set  to  IDEF . 


ST ILST  ( STRING, 

SEP,  IDEF, 

NEXP,  IARR,  NUM,  I RET 

) 

Input  parameters: 

STRING 

CHAR* 

String 

SEP 

CHAR* 1 

Separator 

IDEF 

INTEGER 

Default  value 

NEXP 

INTEGER 

Number  of  expected  values 

Output  par  ame  t e r s : 

IARR  (NUM) 

INTEGER 

Array  of  integer 

values 

NUM 

INTEGER 

Number  of  values 

returned 

I RET 

INTEGER 

Return  code 

1 = more  than  NEXP  values 
0 = normal  return 
-3  = invalid  substring 
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26.12  ST_INCH  - ENCODE  INTEGER 


This  subroutine  encodes  an  integer  in  a character  string. 


ST INCH  ( INTG , STRING,  I RET 

Input  parameters: 

INTG  INTEGER 

Output  parameters: 

STRING  CHAR* 

I RET  INTEGER 


Integer 


Encoded  value 
Return  code 

0 - normal  return 
-2  - error  on  conversion 
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26.13  ST_INLN  - ENCODE  INTEGER 


This  subroutine  converts  an  integer  to  a character  string. 
ST I NCH , the  length  of  the  string  is  returned. 

ST_INLN  ( INTG , STRING,  LENS,  IRET  ) 


Input  parameters: 

INTG 

INTEGER 

Integer 

Ou  t pu  t par  ame  t e r s : 

STRING 

CHAR* 

String 

LENS 

INTEGER 

Leng  th  of  s t r i 

IRET 

INTEGER 

Return  code 
0 = normal  r 
- 2 =*  c onve  r s i 

Unlike 
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26.14  ST I NTG  - DECODE  I NTEGER 


This  subroutine  decodes  a character  string  into  an  integer.  If 
the  string  cannot  be  decoded,  I NTG  is  set  to  IMISSD.  Note  that 
only  the  substring  containing  the  digits  to  be  decoded  should  be 
sent  to  this  subroutine,  rather  than  a string  with  trailing  blanks. 

ST_INTG  ( STRING,  I NTG,  I RET  ) 


Input  parameters: 

STRING  CHAR*  Input  string 


Output  parameters: 

I NTG  INTEGER  Decoded  integer 

I RET  INTEGER  Return  code 

0 - normal  return 
-2  - conversion  error 
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26.15  ST_ITOC 


This  subroutine  de 
char  a cters  each  in 

ST_I  TOC  ( I ARRAY, 

Input  parameters: 

I ARRAY  (NVAL) 
NVAL 

Output  parameters: 
CARRAY  (NVAL) 

I RET 


RECOVER  STRINGS  FROM  INTEGERS 


odes  an  array 
o a character 

of  integers  containing  four 
string  array. 

NVAL,  CARRAY, 

I RET  ) 

INTEGER 

INTEGER 

Integer  array 
Number  of  integers 

CHAR *4 
INTEGER 

Character  array 
Return  code 

0 - n o rma 1 return 
-2  — conversion  error 
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26.16  ST_I TOS  - RECOVER  STRING  FROM  INTEGER  ARRAY 


This  subroutine  decodes  an  array  of  integers  which  contain 
four  characters  each  into  a single  character  string. 


ST_I  TOS  ( I ARRAY, 

NVAL,  NCHAR, 

STRING,  IRET  ) 

Input  parameters: 

I ARRAY  (NVAL) 

INTEGER 

Integer  array 

NVAL 

INTEGER 

Number  of  integers 

Ou  t p u t par  ame  t e r s : 

NCHAR 

INTEGER 

Number  of  characters 

STRING 

CHAR* 

Cha  racter  string 

I RET 

INTEGER 

Return  code 

0 = normal  return 
-2  - conversion  error 
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26.17  ST__LCUC  - CONVERT  STRING  TO  UPPER  CASE 


This  subroutine  converts  lower-case  characters  in  a stri 
upper  case.  The  input  and  output  string  may  be  the  same 

ST_LCUC  ( STRING,  OUTSTR,  I RET  ) 


Input  parameters: 

STRING  CHAR* 


String 


Output  parameters: 

OUTSTR  CHAR* 

I RET  INTEGER 


String  in  upper  case 
Return  code 
0 - n o rma  1 return 


g to 

variable. 
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26.18  ST_XDSP  - REMOVE  LEADING  SPACES 


This  subroutine  deletes  the  leading  spaces  and  tabs  in 
The  input  and  output  strings  may  be  the  same  variable. 

ST_JLDSP  ( STRING,  OUTSTR , NCOUT,  I RET  ) 


Input  parameters: 

STRING  CHAR*  String 


Output  parameters: 

OUTSTR  CHAR* 

NCOUT  INTEGER 

I RET  INTEGER 


Output  string 
Number  of  characters 
Return  code 

0 - normal  return 


a string. 


output 
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26.19  ST_LSTR  - FIND  LENGTH  OF  STRING 


This  subroutine  returns  the  number  of  characters  in  a string 
disregarding  trailing  null  characters,  tabs  and  spaces. 

ST__LSTR  ( STRING,  LENS,  IRET  ) 

Input  parameters: 

STRING  CHAR*  String 

Output  parameters: 

LENS  INTEGER  Length  of  string 

IRET  INTEGER  Return  code 

0 — normal  return 
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26.20  ST.J'IOCC  - FIND  NTH  OCCURRENCE  OF  CHARACTER 

This  subroutine  finds  the  Nth  occurrence  of  a character  in  a 
string. 


ST__NOCC  ( STRING, 

CHOCC,  NOCC, 

I POINT,  IRET  ) 

Input  parameters: 

STRING 

CHAR* 

String 

CHOCC 

CHAR* 

Search  character 

NOCC 

INTEGER 

Occurrence  to  find 

Output  parameters: 

I POINT 

INTEGER 

Pointer  to  Nth  occurrence 

I RET 

INTEGER 

Return  code 
0 - normal  return 
-5  — Nth  occurrence  not  f 
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26.21  ST __NUMB  - DECODE  INTEGER 


This  subroutine  converts  a string  into  an  intege 
ST_NUMB  ( STRING,  IVAL,  I RET  ) 

Input  parameters: 

STRING  CHAR*  String 

Output  parameters: 

IVAL  INTEGER 

I RET  INTEGER 


Integer  value 
Return  code 
0 = normal 
-2  = convers 


return 
ion  error 
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26.22  ST_NXTS  - SEARCH  STRING  FOR  SUBSTRING  LIST 


This  subroutine  returns  a pointer  to  the  first  occurrence  of  any 
or  a list  of  substrings  within  a given  string. 


ST_NXTS  ( STRING, 

IFIRST, 

I STRG , 

I RET  ) 

Inpu  t par  ame  t e r s : 

STRING 

CHAR* 

IFIRST 

INTEGER 

I LAST 

INTEGER 

STL I ST  (NSTR) 

CHAR* 

ILENS  (NSTR) 

INTEGER 

NSTR 

INTEGER 

Output  parameters: 

IPOS 

INTEGER 

I STRG 

INTEGER 

I RET 

INTEGER 

I LAST, 


STL I ST,  I LENS,  NSTR , IPOS, 


I npu  t string 
First  position  to  check 
Last  position  to  check 
List  of  substrings 
Lengths  of  substrings 
Number  of  substrings 


Position  of  first  substring 
Array  element  number  of  string 
Return  code 

0 - n o rma  1 return 
-3  - substring  not  found 
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26.23  ST_RANG  - GET  RANGE  LIMITS 


This  subroutine  changes  a string  range  into  the  beginning,  end, 
and  increment  values.  The  values  must  be  separated  by  - . 

ST—RANG  ( STRING,  FIRST,  LAST,  INC,  I TYPE , IRET  ) 

Input  parameters: 

STRING  CHAR*  String 

Output  parameters: 

FIRST 
LAST 
INC 
ITYPE 


IRET 


CHAR* 

CHAR* 

CHAR* 

INTEGER 


INTEGER 


First  value  in  range 
Last  value  in  range 
Range  increment 
Range  type 

0 - no  range  input 

1 - range  without  increment 

2 — range  with  increment 
Return  code 

A « n rmfl  1 return 
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26.24  ST_RLCH  - ENCODE  REAL  NUMBER 


This  subroutine  encodes  a real  number  in  a character  string 
contains  the  number  of  decimal  places  to  be  included  in  the 
string.  RLNUM  is  rounded  to  NP  decimal  places. 

ST_RLCH  ( RLNUM,  NP , STRING,  I RET  ) 

Input  parameters: 


RLNUM 

REAL 

Real  number 

NP 

INTEGER 

Number  of  decimal  places 

Ou  t p u t par  ame  t e r s : 

STRING 

CHAR* 

Output  s t r ing 

I RET 

INTEGER 

Return  code 

0 « normal  return 

NP 

output 
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26.25  ST_RLST 


- CONVERT  REAL  LIST  TO  ARRAY 


This  subroutine  breaks  a string  containing  a lisJ  an 

arrav  of  real  values.  The  separator  for  the  reals  is  input  as 
SEP.  If  the  separator  is  a blank,  multiple  b^nks  1 j x ® ° r • s 
to  single  blanks  before  the  string  is  processed.  If  null  strings 
are  encountered  or  fewer  than  NEXP  strings  are  found  in 
string,  the  appropriate  RARR  locations  are  set  to  RDEF . 

ST_RLST  ( STRING,  SEP,  RDEF,  NEXP,  RARR,  NUM,  IRET  ) 


the 


Input  parameters: 
STRING 
SEP 
RDEF 
NEXP 

CHAR* 
CHAR* 1 
REAL 
INTEGER 

String 

Separator 

Default  value 

Number  of  expected  values 

Output  parameters: 
RARR  (NUM) 

NUM 

IRET 

REAL 

INTEGER 

INTEGER 

Array  of  real  values 
Number  of  values  returned 
Return  code 

1 - too  many  values 

0 - normal  return 
-3  - invalid  substring 
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26.26  ST_RMBL  - REMOVE  BLANKS 


This  subroutine  removes  spaces  and  tabs  from  a string.  The  input 
and  output  strings  may  be  the  same  variable. 

ST_RMBL  ( STRING,  OUTSTR,  LENGTH,  I RET  ) 


Inpu t par  ame  t e r s : 

STRING  CHAR* 

Output  parameters: 

OUTSTR  CHAR* 

LENGTH  INTEGER 

I RET  INTEGER 


String 


String  without  blanks 
Length  of  output  string 
Re  turn  code 
0 - normal  return 
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26.27  ST_RMST 


FIND  A SUBSTRING  WITHIN  A STRING 


This  subroutine 
the  po s i t i on  o f 
substring  remove 
IPOS,  is  set  to 


finds  a substring  within  a string  and  return 
that  substring  and  the  output  string  with  the 
d.  If  the  substring  is  not  found,  the  positio  , 


ST__RMST  ( STRING,  SUBSTR,  IPOS,  OUTSTR,  I RET  ) 


Input  parameters: 

STRING  CHAR* 

SUBSTR  CHAR* 

Output  parameters: 

IPOS  INTEGER 

OUTSTR  CHAR* 

I ret  I NTEGER 


String 
Subs  t r ing 


Position  of  substring 
Output  string  less  substring 
Return  code 
0 - normal  return 
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2 6.28  ST_JINAN  - REMOVE  NON -AL  PHANUMER  ICS 


This  subroutine  replaces  non- a lphanume  r i c characters 
and  removes  the  extra  spaces  from  a character  string 
characters  period  (.),  plus  sign  ( + ),  minus  sign  (-) 
are  not  removed.  c 


wi  th  spaces 
The 

and  asterisk 


ST_RNAN  ( STRING, 

OUTSTR , 

Input  parameters: 

STRING 

CHAR* 

Output  parameters: 

OUTSTR 

CHAR* 

LENGTH 

INTEGER 

IRET 

INTEGER 

LENGTH,  I RET  ) 


String 

Converted  string 
Length  of  output  string 
Return  code 
0 - n o rma  1 return 
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26.29  ST__RXBL  - REMOVE  EXTRA  BLANKS 


This  subroutine  removes  extra  spaces  and 
single  blanks  will  separate  substrings, 
strings  may  be  the  same  variable. 


tabs  f r om  a string. 
The  input  and  output 


Only 


ST__RXBL  ( STRING,  OUTSTR,  LENGTH,  IRET  ) 


Input  parameters: 

STRING  CHAR* 


Output  parameters: 

OUTSTR  CHAR* 

LENGTH  INTEGER 

jrET  INTEGER 


String 


String  without  blanks 
Length  of  output  string 
Return  code 
0 = normal  return 
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26.30  ST_STOI  - STORE  STRING  IN  INTEGER  ARRAY 


This  subroutine  stores  a character  string  in  an  integer 
tour  characters  are  written  to  each  integer. 


array. 


ST_STOI  ( STRING,  NCHAR , NVAL , I ARRAY , IRET  ) 


Inpu  t par  ame  ters: 

STRING  CHAR* 

NCHAR  INTEGER 

Output  parameters: 

NVAL  INTEGER 

I ARRAY  (NVAL)  INTEGER 
IRET  INTEGER 


String 

Number  of  characters  to  store 

Number  of  integers 
Integer  arr ay 
Return  code 

0 - normal  return 
-2  = conversion  error 
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26.31  ST_UCLC  - CONVERT  STRING  TO  LCWER  CASE 


This  subroutine  converts  upper-case  characters  in  a string  to 
lower  case.  The  input  and  output  strings  may  be  the  same 
variable  . 

ST_UCLC  ( STRING,  OUTSTR,  I RET  ) 

Input  parameters: 

STRING  CHAR*  String 

Output  parameters: 

OUTSTR  CHAR*  String  in  upper  case 

IRET  INTEGER  Return  code 

0 — normal  return 
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26.32  ST_UNPR  - REMOVE  CONTROL  CHARACTERS 


This  subroutine  eliminates  substrings  of  unprintable  characters. 
Substrings  of  control  characters,  i.e.,  characters  less  than  a 

•i?nr™A»%,r^UCCd  by  a sin*le  blank.  Characters  greater  than 
) (CHAR  (126))  are  replaced  by  (CHAR  (127)).  This  subroutine 

can  be  used  to  replace  control  characters  such  as  CR  and  LF  with 
a single  blank.  Invalid  characters  in  the  ASCII  character  set 
are  replaced  by  so  that  the  lengths  of  fields  in  the 

will  remain  unchanged.  The  input  and  output  strings  may 
same  variable. 


record 
be  the 


ST_UNPR  ( STRING,  LENIN,  OUTSTR,  LENOUT,  I RET  ) 


Input  parameters: 

STRING  CHAR* 

LENIN  INTEGER 

Output  parameters: 

OUTSTR  CHAR* 

LENOUT  INTEGER 

!RET  INTEGER 


Input  string 

Length  of  input  string 


Output  string 

Length  of  output  string 

Return  code 

0 *=  n o rma  1 return 
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26.33  ST__UTAB  - REPLACE  TABS  WITH  SPACES 


This  subroutine  substitutes  spaces  for  tabs  in  a string.  P 
are  added  for  each  tab  found  so  that  the  character  after 
appears  at  the  next  tab  stop.  Tab  stops  are  assumed  to  be  at 

positions  9,  17.  25 The  input  and  output  strings  may 

be  the  same  variable. 


ST_UTAB  ( STRING,  NCHAR , OUTSTR,  I RET  ) 


Input  parameters: 

STRING  CHAR* 

NCHAR  INTEGER 


Input  string 
Number  of  characters 


Output  parameters: 

OUTSTR  CHAR* 

I RET  INTEGER 


Output  string 
Return  code 
0 = n o rma  1 return 
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TB_FGEO 

TB_GRNV 

TB_J>CNV 

TB_PRMT 

TB_JRSTN 

TB_VvGEO 


Find  geographic  area 

Read  grid  navigation  table 

Read  parameter  conversion  table 

Read  parameter  flag  table 

Read  station  table 

Write  to  geographic  table 
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Table  (TB)  Library  Summary 


The  table  library  contains  subroutines  to  access  GEMPAK  table  files. 
A table  file  is  a sequential  file  which  may  have  leading  comment 
records.  A comment  record  is  any  record  where  the  first  non-blank 
character  is  an  exclamation  point.  Table  files  may  be  created  using 
atexteditor. 

The  subroutine  FL_TOPN  may  be  used  to  open  any  table  file  for  read 
access.  The  file  will  be  positioned  after  the  last  comment  record. 
FL_S\M3P  will  open  a table  file  for  write  access.  FL_APND  will 
position  the  file  after  the  last  record  if  information  is  to  be 
added  to  the  file. 

The  following  paragraphs  describe  the  current  GEMPAK  tables  which 
are  located  in  GEMTABL . 

GEOGRAPHIC  TABLE 

The  geographic  table  contains  a list  of  geographic  abbreviations,  a 
full  geographic  name,  the  center  latitude  and  longitude,  and  a 
latitude  and  longitude  range.  The  subroutine  TB__FGEO  will  search 
the  table  for  a geographic  abbreviation.  The  GEMPAK  table  GEOG.TBL 
will  be  searched  unless  the  first  character  in  the  requested  name 
is  a #,  in  which  case  the  local  file  GEOG . TBL  will  be  used. 

TB_JMJEO  will  write  a new  geographic  area  to  the  file.  The  format 
statement  used  to  read  or  write  to  the  file  is:  ( A8 , A18,  4F8 . 2 ). 

GRID  NAVIGATION  TABLE 

The  grid  navigation  table  associates  a 4-character  name  with  a 
3-digit  identification  number  and  a complete  set  of  grid  navigation 
parameters  (projection  name,  3 projection  angles,  4 bounding  lat/lon 
values,  number  of  x and  y grid  points).  Grid  numbers  less  than  300 
correspond  to  standard  NMC  grid  numbers.  The  table  also  contains 
the  suggested  DELTAN  and  EXTEND  parameters  for  performing  a Barnes 
analysis.  The  subroutine  TB_GRNV  can  be  used  to  read  the  table; 
entries  are  free -format,  but  all  14  parameters  must  be  non-blank. 

PARAMETER  CONVERSION  TABLE  and  PARAMETER  FLAG  TABLE 

These  tables  are  used  by  the  PC  library  to  compute  requested 
output  parameters  from  the  parameters  contained  in  a data  set. 

The  subroutines  TB_PCNV  and  TB PRMT  can  be  used  to  read  the 

tables.  The  GEMPAK  tables  are  named  PCCONV.TBL  and  PRMFLG . TBL . 

In  general,  these  files  may  be  modified  to  add  new  parameters,  but 
the  subroutines  to  read  the  files  will  be  called  only  by  the  PC 
library  subroutines. 
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SURFACE  STATION  TABLE,  UPPER-AIR  STATION  TABLE,  and 
WORLD  UA  STATION  TABLE 

These  tables  contain  surface  and  upper-air  stations  for  the  United 
States,  Canada,  Mexico  and  the  Caribbean,  which  report  on  the : Dome s t 1 c 
Data  line  and  upper-air  data  stations  for  the  world.  The  GEMPAK 
tables  are  SFSTNS.TBL,  SNSTNS.TBL  and  SNWORLD . TBL . Note  that 
SFSTNS.TBL  was  previously  named  STATIONS . TBL . TB__RSTN  will  read 
a single  record  from  the  station  file.  Each  record  of  the  file 
contains  the  station  identifier,  number,  name,  state,  country, 
latitude,  longitude  and  elevation,  and  can  be  read  with  the  format: 

( A4 , IX,  16,  IX,  A3 2 , IX,  A2 , IX,  A2 , IX,  15,  IX,  16,  IX,  15  ). 

SURFACE  DATA  PACKING  TABLE  and  UPPER-AIR  DATA  PACKING  TABLE 

These  packing  tables  contain  recommended  parameters  and  packing 
information  for  data  received  from  the  604-line  or  Domestic  Data 
Service . 

The  current  GEMPAK  surface  packing  file  is  SFPACK. TBL . The  file  is 
read  by  DPJILE,  which  is  called  by  SF_CRFP  when  a packed  surface 
file  is  created. 

The  current  GEMPAK  upper-air  packing  file  is  SNPACK.TBL  . Note  that 
the  upper-air  significant  and  mandatory  reports  are  usually  stored 
separately  in  unmerged  upper-air  files.  The  subroutine  SN__CRUA, 
which  creates  such  a file,  may  s p e c i f y whe t he r the  data  are  to  be 
packed,  but  the  packing  information  is  predetermined. 


ERROR  MESSAGES: 


[TB 

-1] 

[TB 

-2] 

[TB 

-3] 

[TB 

-4] 

[TB 

-5] 

[TB 

-6] 

[TB 

-7] 

[TB 

-9] 

End  of  file  reached. 

Read  error. 

The  table  ...  cannot  be  opened. 

The  geographic  area  ...  is  not  in  the  table. 
Error  writing  to  the  file. 

The  parameter  conversion  buffer  is  full. 

The  parameter  flag  buffer  is  full. 

Error  converting  table  parameters. 
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TBJGEO 

TB_GRNV 

TB PCNV 

TB_PRMT 

TB_RSTN 

TBL5W3EO 


TB  Library  Calls 

( geog,  / cenlat,  cenlon,  diflat,  diflon,  iret  ) 

( lun,  / namgd , numgd,  prjgd,  anggd,  gargd,  nxgd  , nygd, 
deln, ext nd, iret) 

( maxfnc,  / nfunc,  parms,  funcs,  prmin,  iret  ) 

( maxprm,  / nparms,  parms,  chrflg,  intflg,  extflg,  angflg, 
iret) 

( lun,  / stid,  stnnam,  istnm,  stat,  coun,  slat,  slon, 
selv,  iret) 

( lun,  geoare,  geonam,  cenlat,  cenlon,  diflat,  diflon 
/iret)  ’ 
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27.1  TB_JGEO  - FIND  GEOGRAPHIC  AREA 


This  subroutine  searches  the  geographic  name  table  for  an  area  and 
returns  the  center  latitude  and  longitude  and  the  latitude  and 
longitude  range.  If  the  first  character  in  GEOG  is  #,  the  rest  of 
the  name  is  used  in  searching  the  user’s  geographic  table,  GEOG.TBL 

If  the  geographic  table  cannot  be  opened,  an  error  message  is 
wr  i 1 1 e n . 

The  input  parameter  GEOG  must  be  in  upper  case. 


TB_JGEO  ( GEOG,  CENLAT , CENLON , D I FLAT,  DIFLON,  I RET  ) 


Input  parameters: 

GEOG 

CHAR* 

Geographic  name 

Output  parameters: 

CENLAT 

REAL 

Cent  er  latitude 

CENLON 

REAL 

Center  long i tude 

DIFLAT 

REAL 

Latitude  range  of  area 

DIFLON 

REAL 

Longitude  range  of  area 

IRET 

INTEGER 

Return  code 

0 - normal  return 
-3  = table  not  opened 
-4  ’ «■  area  not  in  table 
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27.2  TB_GRNV  - READ  GRID  NAVIGATION  TABLE 


This  subroutine  returns  the  contents  of  a line  in  a GEMPAK  grid 
navigation  table.  Table  entries  are  free  format,  but  no  entry 
may  be  blank. 

TB_GRNV  ( LUN,  NAMGD,  NUMGD,  PRJGD,  ANGGD,  GARGD , NXGD,  NYGD , 
DELN , EXTND,  I RET  ) 

Input  parameters: 

LUN  INTEGER  Logical  unit  number 

Output  parameters: 

NAMGD 
NUMGD 
PRJGD 
ANGGD  (3) 

GARGD  (4) 

NXGD 
NYGD 
DELN 
EXTND 
I RET 

0 — no  rma 1 return 
*1  — end  of  file  reached 
-2  — read  error 
-9  « decode  error 


Grid  type  name 

Grid  type  number 

Projection  name 

Grid  projection  angles 

Grid  lat/lon  corners 

Number  of  grid  pts  in  x dir 

Number  of  grid  pts  in  y dir 

DELTA  N for  Barnes  analysis 

Grid  size  increase,  first  pass 

Return  code 
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27.3  TB PCNV  - READ  PARAMETER  CONVERSION  TABLE 


This  subroutine  reads  in  the  parameter-function  computation  ta 
and  decomposes  it  into  functions  and  required  parameters.  If 
function  table  cannot  be  opened  or  is  too  large  for  the  buffer 
space,  an  error  message  is  written,  but  no  error  is  returned. 

TB PCNV  ( MAXFNC,  NFUNC , PARMS  , FUNCS , PRMIN , I RET  ) 


Input  parameters: 

MAXFNC  INTEGER 

Output  parameters: 

NFUNC  INTEGER 

PARMS  (NFUNC)  CHAR* 

FUNCS  (NFUNC)  CHAR* 

PRMIN  (4, NFUNC)  CHAR* 

I RET  INTEGER 


Maximum  number  of  functions 


Number  of  functions 
Computable  functions 
Function  names 
Input  parameters  to  funcs 
Return  code 

0 ■=  normal  return 


ble 

the 
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27.4  TB_J>RMT  - READ  PARAMETER  FLAG  TABLE 


This  subroutine  reads  the  parameter  type  table  and  returns  the 
parameters  and  the  character,  interpolation,  extrapolation  and 
angle  flags.  If  the  file  cannot  be  opened  or  there  are  too  many 
parameters,  an  error  message  will  be  written,  but  no  error  will 
be  returned. 

TB.JPRMT  ( MAXPRM,  NPARMS , PARMS  , CHRFLG , INTFLG , EXTFLG , ANGFLG , 
I RET  ) 

Input  parameters: 

MAXPRM  INTEGER  Maximum  number  of  parameters 

Output  parameters: 

NPARMS 

PARMS  (NPARMS) 

CHRFLG  (NPARMS) 

INTFLG  (NPARMS) 

EXTFLG  (NPARMS) 

ANGFLG  (NPARMS) 

I RET 

0 = no rma  1 return 


INTEGER  Number  of  parameters 

CHAR*  Parameter  names 

LOGICAL  Character  type  flags 

LOGICAL  Interpolation  flags 

LOGICAL  Extrapolation  flags 

LOG I CAL  An  gle  flags 

INTEGER  Return  code 
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27.5  TB_JISTN 

Thi s subroutine 

TB_RSTN  ( LUN , 
SELV , 


- READ  STATION  TABLE 

reads  the  next  record  from 

ST  ID,  STNNAM,  ISTNM,  STAT, 
I RET  ) 


Input  parameters: 

LUN  INTEGER 


Logical 


Output  parameters: 


STID 

STNNAM 

ISTNM 

STAT 

COUN 

SLAT 

SLON 

SELV 

I RET 


CHARM 
CHAR*  32 
INTEGER 
CHAR*  2 
CHAR*  2 
REAL 
REAL 
REAL 
INTEGER 


Station 
Station 
Station 
State 
Count  ry 
Station 
Station 
Station 
Return 
0 = 
-1  = 
-2  = 


the  GEMPAK  station  table. 
COUN,  SLAT,  SLON, 


unit  numbe  r 

identifier 

name 

number 

lati tude 
1 ong i tude 
elevation 
code 

normal  return 
end  of  file 
read  error 
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27.6  TB_\M5E0  - WRITE  TO  GEOGRAPHIC  TABLE 


This  subroutine  writes  a record  to  a GEMPAK  geographic  table  file. 
The  file  should  be  positioned  at  the  EOF  mark  using  FL_APND  before 
this  subroutine  is  called.  Otherwise,  information  already  in  the 
table  will  be  overwritten. 

TB_JMjrEO  ( LUN,  GEOARE , GEONAM,  CENLAT,  CENLON,  D I FLAT,  DIFLON, 

I RET  ) 

Input  parameters: 


LUN 

INTEGER 

Logical  unit  number 

GEOARE 

CHAR *8 

Area  name  abbreviation 

GEONAM 

CHAR*  1 8 

Area  name 

CENLAT 

REAL 

Cent  e r 1 a t i tude 

CENLON 

REAL 

Center  1 ong i tude 

D I FLAT 

REAL 

Latitude  range 

DIFLON 

REAL 

Long i tude  range 

put  pa  rame  ters : 

I RET 

INTEGER 

Return  code 

0 - normal  return 
-5  -write  error 
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GRID  TIME  (TG)  LIBRARY 


TG_CFTM 
TG_CTO I 
TG__DIFF 
TG_FLST 
TG_JFTO  I 
TG_JTJLL 

TG I FTM 

TG I TOC 

TG I TOF 

TG_RANG 

TG_VALD 

TG_VTOF 


Create  character  forecast  time 
Grid  time  to  integers 
Grid  time  difference 
Find  t ime  s in  file 
File  time  to  integers 
Partial  to  full  grid  time 
Create  integer  forecast  time 
Integer  to  character  grid  time 
Integers  to  file  time 
Get  range  of  times 
Compute  valid  time 
Verification  to  forecast  time 
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Grid  Time  (TG)  Library  Summary 


The  GEMPAK  GRID  TIME  library  subroutines  process  grid  times  for 
GEMPAK. 

The  GEMPAK  format  for  grid  time  is  a character  string: 
YYMdDD/HHMMt  hhhmm 


YY 

last  two  digits  of  the  year 

MM 

month 

DD 

day  of  month 

/ 

date  and  time  separator 

HH 

hou  r 

MM 

minute 

t 

type  ( F-f orecas t , A-analys 
I-initialization  ) 

hhh 

forecast  hou r 

mm 

forecast  minute 

The  string  before  the  / is  the  DATE; 
TIME;  "thhhmm”  is  the  FORECAST  TIME. 


the  string  after  the  / is  the 


If  hhhmm  is  one  or  two  characters,  they  will  be  interpreted  as 
hours.  Three  or  more  characters  will  be  right  justified  in  hhhmm. 

The  forecast  type  may  specify  V for  verification  time.  In  this 
case,  hhhmm  will  be  subtracted  from  the  DATE  and  TIME  and  the 
type  will  be  returned  as  F. 


A partial  time  may  be  entered  for  the  grid  time.  The  last  time  in 
the  data  set  will  be  used  to  fill  in  the  missing  parts.  If  the 
input  string  does  not  contain  the  date  and  time  separator,  ’/’, 
the  input  string  is  assumed  to  be  a 1 e f t - jus t i f i ed  time  (i.e.,12 
represents  HH) . If  the  forecast  type  is  not  specified,  the  forecast 
time  from  the  last  time  will  be  used.  FIRST  and  LAST  can  be  used  to 
specify  the  first  and  last  times  in  the  file. 

If  the  last  time  in  the  file  is  890408/1200F72 , 
the  abbreviated  forms  will  be  translated  into  the 
following  GEMPAK  times: 


3/11 

> 

890403/1 100F72 

00F00 

> 

890408/ 0000F00 

7/ 

> 

890407/ 1200F72 
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LAST 
LASTFOO 
FI  2 

9/OOV48 


890408/ 12 OOF 7 2 
890408/1200F00 
890408/ 1200F 12 
890407 / 1 200F4  8 


ERROR 

MESSAGES : 

[TG 

-1] 

Invalid  date  or  time. 

[TG 

-2] 

Invalid  forecast  type. 

[TG 

-3] 

Invalid  forecast  time. 

[TG 

-4] 

No  times  in  input  file. 

[TG 

-5] 

Invalid  time  range. 

[TG 

-6] 

Single  time  invalid  for  range. 

[TG 

-7] 

Invalid  forecast  type  for  ALL. 

[TG 

-8] 

Invalid  first  time  in  range. 

[TG 

-9] 

Invalid  last  time  in  range. 

[TG  - 

10] 

First  time  is  after  last  time. 

[TG  - 

11] 

First  and  last  times  are  the  same. 

[TG  - 

12] 

Forecast  types  must  be  the  same  for 

[TG  - 

13] 

Forecast  times  must  be  the  same  for 

[TG  - 

14] 

The  time  increment  is  invalid. 

[TG  - 

15] 

Too  many  times  in  list. 

[TG  - 

16] 

No  t ime  s i n r ang  e . 

different 

different 


dates 

dates 


28-3 


GRID  TIME  (TG)  LIBRARY 


TG_CFTM 

( i f c a s t , 

TG  Library  Calls 
/ f type , ft  ime  , i r e t ) 

TG_CTOI 

( gdattm, 

/ intdtf,  iret 

) 

TG_JDIFF 

C da  t tml  , 

d a t tm2  , / nmi  n 

, iret  ) 

TG_JLST 

( n t ime  , 

times,  ntimf,  filtim,  / nfound, 

t imf  nd  , 

TG__FTO  I 

( i f t ime  , 

/ intdtf,  iret 

) 

TG__FULL 

( gd  a t tm, 

firstm,  lasttm 

, / fulltm,  iret 

) 

TG_I  FTM 

( f type , 

f t ime  , / i f cas  t 

, iret  ) 

TG I TOC 

( i n t d t f , 

/ gdattm,  iret 

) 

TG_I  TOF 

( in td  t f , 

/ iftime,  iret 

) 

TG__RANG 

( gda  t tm, 

n t imf  , f i 1 t im, 

/ n t ime  , t ime  s , 

iret  ) 

TG_VALD 

( gda  t tm. 

/ vda  t tm,  iret 

) 

TG_VTOF 

( i n t vd  t , 

/ intfdt,  iret 

) 

i r e t ) 
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28.1  TG_CFTM  - CREATE  CHARACTER  FORECAST  TIME 


This  subroutine  converts  an  integer  grid  forecast  time  into 
the  character  forecast  type  and  time.  The  forecast  type 
is  A (analysis),  F (forecast),  G (guess)  or  I (initialize)* 
If  the  forecast  time  is  less  than  100  and  the  minutes  are  00, 
only  hh  is  returned. 

TG_CFTM  ( IFCAST,  FTYPE , FTIME , I RET  ) 


Input  parameters: 

IFCAST  INTEGER 


GEMPAK  grid  t ime 


Output  parameters: 

FTYPE  CHAR* 1 

FTIME  CHAR* 

I RET  INTEGER 


Forecast  type  C A,F,G,I  ) 
Forecast  time  ( hhhmm  ) 
Return  code 

0 - normal  return 
-2  - invalid  forecast  type 
-3  = invalid  forecast  time 


28-5 


GRID  TIME  (TG)  LIBRARY 
28.2  TG_CTO I - GRID  TIME  TO  INTEGERS 


This  subroutine  converts  a full  grid  date/time  string  into  the 
three  integers  for  date,  time  and  forecast  time. 

TG_CTO I ( GDATTM , INTDTF,  I RET  ) 


Input  parameters: 

GDATTM  CHAR*  GEMPAK  grid  date/time 


Output  parameters: 

INTDTF  (3)  INTEGER  Grid  date,  time,  forecast 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
-2  - invalid  forecast  type 
-3  - invalid  forecast  time 


28-6 


GRID  TIME  (TG)  LIBRARY 


28.3  TG_DIFF  - GRID  TIME  DIFFERENCE 


This  subrout ine 
two  GEMPAK  grid 
and  may  be  compu 


c ompu  t e s 
t ime  s . 
ted  for 


the  time  difference 
The  time  difference 
a maximum  of  one  yea 


i n 
i s 
r . 


mi  nu 
t ime  1 


t 


e 


TG_J3IFF 


( DATTMl  , DATTM2  , NMIN,  I RET  ) 


Input  parameters: 

DATTMl  CHAR* 

DATTM2  CHAR* 


First  GEMPAK  grid  t 
Second  GEMPAK  grid 


Output  parameters: 

NMIN  INTEGER 

I RET  INTEGER 


Difference  in  minut 
Return  code 

0 * normal  return 
- 1 2 = i nva lid  t ime 


b e twe  en 
t ime  2 


ime 
t ime 


e s 


range 
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28.4  TG_JFLST  - FIND  TIMES  IN  FILE 


This  subroutine  takes  a list  of 
times  are  in  a list  of  times  in 


TGJLST  ( NT  IME, 

TIMES,  NT  IMF 

Input  parameters: 

NT  IME 

INTEGER 

TIMES  (NT IME) 

CHAR* 

NT  IMF 

INTEGER 

FILTIM  (NT IMF) 

CHAR* 

Output  parameters: 

NFOUND 

INTEGER 

TIMFND  (NFOUND) 

CHAR* 

I RET 

INTEGER 

input  times  and  determines  which 
the  file. 

FILTIM,  NFOUND,  TIMFND , I RET  ) 


Number  of  times  in  input  list 
Input  times 

Number  of  times  in  file 
T ime  s in  file 


Number  of  times  found 
Times  found 
Return  code 

0 • no rma  1 return 
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28.5  TG_FTOI  - FILE  TIME  TO  INTEGERS 

This  subroutine  converts  the  two  integers  stored  in  a grid  file 
into  three  integers  containing  the  date,  time  and  forecast  time. 

TG_FTO I ( IFTIME , INTDTF,  I RET  ) 

Input  parameters: 

IFTIME  (2)  INTEGER  Grid  time  stored  in  file 

Output  parameters: 

INTDTF  (3)  INTEGER  Date,  time,  forecast  time 

IRET  INTEGER  Return  code 

0 = normal  return 
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2 8.6  TG_jTJLL  - PARTIAL  TO  FULL  GRID  TIME 


This  subroutine  co 
into  a ful 1 grid  t 

nv erts  the  user 
ime  string. 

input  for  a single  gric 

TG_FULL  ( GDATTM , 

FIRSTM,  LASTTM, 

FULLTM,  I RET  ) 

Input  parameters: 
GDATTM 
FIRSTM 
LASTTM 

CHAR* 

CHAR* 

CHAR* 

Input  grid  time 
First  time  in  grid  fil 
Last  time  in  grid  file 

Output  parameters: 
FULLTM 
I RET 

CHAR* 

INTEGER 

Full  GEMPAK  grid  time 
Return  code 

0 = normal  return 
-1  - inval id  date  or 
-2  = invalid  forecast 
■3  = invalid  forecast 

t ime 


t ime 
type 
t ime 
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2 8.7  TG_I  FTM 


- CREATE  INTEGER  FORECAST  TIME 


This  subroutine  converts  the  grid 
an  integer  forecast  time. 

TG_I  FTM  ( I FCAST  , FTYPE  , FTIME  , 

Inpu  t par  ame  t e r s : 

FTYPE  CHAR* 1 

FTIME  CHAR* 

Ou  t pu t par  ame  t e r s : 

I FCAST  INTEGER 

I RET  INTEGER 


forecast  type  and  time  into 


I RET  ) 


Forecast  type  ( A,F,G  ) 
Forecast  time  ( hhhmm  ) 


GEMPAK  forecast  time 
Return  code 

0 - n o rma  1 return 
-2  = invalid  forecast  type 
-3  - invalid  forecast  time 
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28.8  TG_I TOC  - INTEGER  TO  CHARACTER  GRID  TIME 


Th  i s 
t ime 


siibroutiiie  converts  an  integer  time  array  containing  the  date, 
and  forecast  time  into  a GEMPAK  grid  time. 


TG_I  TOC  ( INTDTF , GDATTM , I RET  ) 


Input  parameters: 

INTDTF  (3)  INTEGER 

Output  parameters: 

GDATTM  CHAR* 

I RET  INTEGER 


Date,  time,  forecast  time 

GEMPAK  grid  time 
Re  turn  c ode 

0 = n o rma  1 return 
-1  = invalid  date  or  time 
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2 8.9  TG_I TOF  - INTEGERS  TO  FILE  TIME 


This  subroutine  converts  three  integers  containing 
and  forecast  field  into  the  two  integers  stored  in 


the  date, 
a grid  fil 


TG__ITOF  ( INTDTF , IFTIME,  I RET  ) 


Input  parameters: 

INTDTF  (3)  INTEGER 


Output  parameters: 

IFTIME  (2)  INTEGER 

I ret  integer 


Date,  time,  forecast  time 

Grid  time  stored  in  file 
Return  code 

0 -no  rma  1 return 


t ime 
e . 
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28.10  TG_RANG  - GET  RANGE  OF  TIMES 

This  subroutine  converts  the  user  input  for  a grid  time  ranee 
into  a list  of  times.  6 

TG_RANG  ( GDATTM,  NTIMF,  FILTIM,  NTIME,  TIMES,  IRET  ) 

Input  parameters: 

GDATTM  CHAR* 

NTIMF  INTEGER 

FILTIM  (NTIMF)  CHAR* 


Number  of  times  selected 
Selected  t ime s 
Return  code 

0 = normal  return 
- 4 = no  t ime  s in  file 
-5  = invalid  time  range 
-6  = single  time  invalid 
-7  = invalid  forecast  type 
-8  = invalid  first  time 
-9  = invalid  last  time 
-10  = first  time  after  last 
'll  = first  and  last  are  same 
-12  = forecast  types  not  same 
'13  = forecast  times  not  same 
-14  = invalid  time  increment 
-15  = too  many  times  in  list 
-16  = no  times  in  range 


Output  parameters: 

NTIME  INTEGER 

TIMES  (NTIME)  CHAR* 

I RET  INTEGER 


Input  grid  time 
Number  of  times  in  file 
Times  in  file 
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28.11  TG_VALD  - COMPUTE  VALID  TIME 


This  subroutine  converts  a grid 
The  input  string  must  be  a full 
contain  only  the  date  and  time, 
may  be  the  same. 

TIJTOV  ( GDATTM , VDATTM,  I RET 

Input  parameters: 

GDATTM  CHAR* 

Output  par  ame  t e r s : 

VDATTM  CHAR* 

i ret  integer 


time  to  the  valid  date/time, 
grid  time.  The  output  time  will 
The  input  and  output  strings 


) 


Grid  date/time 


Valid  date/ time 
Return  code 

0 > no rma  1 return 

-1  - invalid  time 

-2  - invalid  forecast  type 

-3  - invalid  forecast  time 
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2 8.12  TG__VTOF  - VERIFICATION  TO  FORECAST  TIME 


Th is  subroutine  converts  an 


an  integer  time  in 

F syntax 

TG_VTOF  ( INTVDT , 

INTFDT, 

Input  parameters: 

INTVDT  (3) 

INTEGER 

Output  parameters: 

INTFDT  (3) 

INTEGER 

I RET 

INTEGER 

integer  grid  time  in  V syntax 
I RET  ) 


Da  t e , 

t ime  , 

feast 

as  V 

Date, 

t ime  , 

feast 

as  F 

Return 

code 

0 = n o rma  1 return 


t o 
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TI^ADDD 

Add  one  day 

to  date  and 

TI_CDTM 

GEMPAK  t ime 

t 

ime 

TI_CTOI 

GEMPAK  t ime 

to  integer  t 

ime 

TI  _JDAYW 

Day  of  week 

TI__PIFD 

T ime  d i f f e r e 

nee  in  days 

TI_PIFF 

T ime  d i f f e r e 

nee  in  mi nu t 

e 

s 

TIJIND 

Find  user  in 

pu  t t ime  s 

TI_GREN 

Local  time  t 

o UTC 

TI_GRTM 

Integer  loca 

1 time  to  UTC 

TI_GTIM 

Sy  s t em  local 

t ime 

TI_IDTM 

Date  and  time  to  GEMPAK 

t 

ime 

TI I TOC 

Integer  ar ra 

y to  GEMPAK 

t 

ime 

ti_mdif 

Time  d i f f e r e 

nee  f r om  i n t 

e 

ger 

TI SORT 

Sort  t ime  s 

TI_STNT 

C omp  u t e s t a t 

ion  time 

T I SUBD 

Subtract  one 

day 

t ime 
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Time  (TI)  Library  Summary 


The  GEMPAK  TIME  library  subroutines  process  times  for  GEMPAK. 

The  GEMPAK  format  for  time  is  a character  string,  YYMMDD/HHMM 
wh  ere: 

YY  is  the  last  two  digits  of  the  year 

MM  is  the  mon th 

DD  is  the  day  of  the  month 

/ is  the  date  and  time  separator 

HH  is  the  hour 

NM  is  the  minutes  past  the  hour 

S^String  before  the  7 is  the  DATE;  the  string  after  the  / is  the 
1 1Mb . 


A partial  time  may  be  entered  in  TI_PIND.  The  latest  date/time 
in  the  data  set  will  be  used  to  fill  in  the  missing  parts.  If  the 
input  string  does  not  contain  the  date  and  time  separator,  ’/’ 
the  input  string  is  assumed  to  be  a lef t- jus t if ied  time  (i.e 

e x amp  1 e : 


i s 1200  UTC) . For 


12 


If  the  last  time  in  the  file  is  ’840515/1200 

the  abbreviated  forms  will  be  translated  into  the* 

following  GEMPAK  times: 


13/11 

13 

13/ 

0412/1300 


840513/1100 

840515/1300 

840513/1200 

840412/1300 


In  addition  to  the  above  date/time 
which  may  be  entered  in  T I_F I ND  in 


f o rma  t,  there  are  four  s ymb  o 1 s 
place  of  a specific  date/time: 


LAST  returns  the  most  recent  time  available 

LIST  displays  a list  of  the  available  times 

ALL  returns  all  the  available  times 

/ALL  returns  all  the  times  for  a particular  day 

In  some  GEMPAK  subroutines,  especially  those  doing  real-time  data 
ingest,  it  is  more  convenient  to  store  the  date/time  information  as 

in  egers.  In  those  subroutines,  5 integers  are  used  to  store  the 

t ime  : 
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idtarr  (l) 
idtarr  (2) 
idtarr  (3) 
idtarr  (4) 
idtarr  (5) 


YYYY 

MM 

DD 

HH 

MM 


The  subroutines  TI_CTOI  and  TI_ITOC  are  provided  to  translate  between 
integer  and  character  times. 


Similarly,  GEMPAK  times  are  often  stored  in  files  as 
representing  the  date  and  time.  Subroutines  TI_CDTM 
translate  between  integer  and  character  times. 


two 

and 


integers 

T I IDTM 


Note  that  grid  times  are  now  processed  in  the  TG  library 


ERROR  MESSAGES: 


[TI 

2] 

[TI 

1] 

[TI 

-1] 

[TI 

-2] 

[TI 

-3] 

[TI 

-4] 

[TI 

-5] 

[TI 

-7] 

[TI 

-8] 

[TI 

-9] 

[TI 

-10] 

[TI 

-11] 

[TI 

-12] 

[TI 

-13] 

[TI 

-14] 

The  time  ...  is  not  found  in  the  dataset. 

EXIT  entered  by  the  user. 

The  DATTIM  ...  is  invalid. 

No  valid  times  entered. 

No  times  within  range. 

’’LIST”  cannot  be  entered  when  RESPOND  is  false. 
There  are  no  times  in  the  dataset. 

The  value  for  the  year  is  invalid. 

The  value  for  the  month  is  invalid. 

The  value  for  the  day  is  invalid. 

The  value  for  the  hour  is  invalid. 

The  value  for  the  minute  is  invalid. 

Invalid  time  difference. 

Invalid  year  for  conversion  to  Greenwich  time. 
Invalid  forecast  time. 
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TI_ADDD 
TI_CDTM 
T I_CTO  I 
TI_J)AYW 
TI_J)IFD 

ti_piff 

ti_find 

TI_GREN 
T I_GRTM 
TI_GTIM 

TI I DIM 

TI_ITOC 
TI_MDIF 
TI_SORT 
TI_STNT 
T I SUBD 


TI  Library  Calls 
( idtarr,  / jdtarr,  iret  ) 

( idate,  i t ime , / dattim,  iret  ) 

( dattim,  / idtarr,  iret  ) 

( idtarr,  / idayw,  iret  ) 

( dattml,  dattm2,  / days,  iret  ) 

( dattml,  da  t tm2 , / nmin,  iret  ) 

( dattim,  ntimin,  t iml  s t , / timout,  ntime,  t imf  nd , iret  ) 
( locarr,  / igrarr,  iret  ) 

( locarr,  ioflst,  iofldt,  / igrarr,  iret  ) 

( / da  1 1 im,  iret  ) 

( dattim,  / idate,  i t ime , iret  ) 

( idtarr,  / dattim,  iret  ) 

( idtarl,  idtar2,  / nmin,  iret  ) 

( ntime,  timin,  / out ime,  iret  ) 

( dattim,  ihhmm,  / stntim,  iret  ) 

( idtarr , / jdtarr  , iret  ) 


29-4 


TIME  (TI)  LIBRARY 


29.1  TI_ADDD  - ADD  ONE  DAY 


This  subroutine  adds  a day  to  the  time  in  an  integer  array.  The 
input  and  output  arrays  may  be  the  same  array. 

TI__ADDD  ( IDTARR,  JDTARR , I RET  ) 


Input  parameters: 

IDTARR  (5)  INTEGER 


Time  array  (YYYY.MM.DD.HH.MM) 


Output  pa  r ame  t e r s : 

JDTARR  (5)  INTEGER 

I RET  INTEGER 


Time  array  (YYYY.MM.DD.HH.MM) 
Return  code 

0 - normal  return 
-7  - inval id  year 
-8  - invalid  month 
-9  - invalid  day 
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29.2  TI_CDTM  - GEMPAK  TIME  TO  DATE  AND  TIME 


This  subroutine  converts  an  integer  date  (YYNMDD)  and  tin 
into  a standard  GEMPAK  time. 

TI—CDTM  ( IDATE,  I TIME , DATTIM,  IRET  ) 

Input  parameters: 

IDATE 
ITIME 

Output  parameters 
DATTIM 
IRET 


INTEGER 

Date 

(YYNMDD) 

INTEGER 

T ime 

(HHMM) 

CHAR* 

GEMPAK  t ime 

INTEGER 

Re  tur 

n code 

0 - 

n o rma  1 

return 

-1  - 

inval id 

t ime 

-7  - 

inval id 

year 

-8  - 

inval id 

month 

-9  - 

inval id 

day 

-10  - 

inval id 

hour 

-11  - 

inval id 

mi  nu  t e 

(HHMM) 
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29.3  TI_CTOI  - GEMPAK  TIME  TO  INTEGER  TIME 


This  subroutine  converts  a standard  GEMPAK  time  into  an  integer 
array  containing  year,  month,  day,  hour,  and  minute.  The  input 
string  must  be  a complete  GEMPAK  date/time.  The  integers  are 
checked  for  validity.  If  YY  is  less  than  20,  2000  is  added  for 
the  year;  otherwise,  1900  is  added. 

T I_CTO I C DATTIM,  IDTARR,  I RET  ) 


Input  parameters: 

DATTIM  CHAR* 


GEMPAK  t ime 


Output  parameters: 

IDTARR  (5)  INTEGER 

I RET  INTEGER 


Time  array  (YYYY ,MM,DD ,HH ,MM) 
Return  code 


0 

- 

norma  1 

return 

-1 

inva lid 

t ime 

-7 

- 

i nva 1 i d 

year 

-8 

inval id 

month 

-9 

= 

i nva 1 i d 

day 

-10 

*= 

inva 1 id 

hour 

-11 

- 

i nva lid 

mi  nu  t e 

29-7 


TIME  (TI)  LIBRARY 


29.4  TI_DAYW  - DAY  OF  WEEK 


This  subroutine  returns  the  day  of  week,  IDAYW,  given  an  integer 
time.  IDAYW  is  set  to  1 for  Sunday,  ....  7 for  Saturday.  The 
algorithm  is  only  valid  after  1600  and  may  need  to  be  modified 
in  2000.  This  subroutine  does  not  check  that  a valid  time  was 
entered.  If  the  year  is  less  than  20,  2000  is  added.  If  the 
year  is  greater  than  20,  but  less  than  100,  1900  is  added. 

TI—DAYW  ( IDTARR , IDAYW,  I RET  ) 


Input  parameters  : 

IDTARR  (5)  INTEGER 

Output  parameters: 

IDAYW  INTEGER 

I RET  INTEGER 


Time  array  ( YYYY , MM , DD , HH , MM ) 


Day  of  week  (l  - Sun,...) 
Return  code 

0 - n o rma  1 return 
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29.5  TI_DIFD  - TIME  DIFFERENCE  IN  DAYS 


This  subroutine  computes  the  time  difference  in  days  between 
two  standard  GEMPAK  times.  The  time  difference  is  timel  - t 


TI_DIFD  ( DATTM1  , 

DATTM2 , DAYS, 

I RET  ) 

Input  parameters: 
DATTM1 
DATTM2 

CHAR* 

CHAR* 

First  GEMPAK 
Second  GEMPAK 

t ime 
t ime 

Output  parameters: 
DAYS 
I RET 

REAL 

INTEGER 

Di f f erence  in 
Return  code 

days 

0 - n o rma 1 return 
-12  = invalid  time  range 


ime  2 . 
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29.6  TIJDIFF  - TIME  DIFFERENCE  IN  MINUTES 


This  subroutine  computes  the  time  difference  in  minutes  between 
two  standard  GEMPAK  times.  The  time  difference  is  timel  - time2 
and  may  be  computed  for  a maximum  of  one  year. 

TI_DIFF  ( DATTM1,  DATTM2  , NMIN , IRET  ) 

Input  parameters: 

DATTM1  CHAR*  First  GEMPAK  t ime 

DATTM2  CHAR*  Second  GEMPAK  time 

Ou  t p u t par  ame  t e r s : 

NfrHN  INTEGER  Difference  in  minutes 

IRET  INTEGER  Return  code 

0 - normal  return 
-12  - invalid  time  range 
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29.7  TI_FIND  - FIND  USER  INPUT  TIMES 


This  subroutine  converts  the  user  input  for  DATTIM  into  a list 
of  times.  The  times  may  be  entered  as  a list  or  range  of  times. 
The  requested  times  are  returned  in  TIMFND.  The  times  in  the  file 
are  input  in  TIMLST , where  the  times  must  be  in  the  standard 
GEMPAK  format  and  must  be  sorted  from  earliest  to  latest.  This 
subroutine  will  write  error  messages  for  any  error  encountered. 

T I_F I ND  ( DATTIM,  NTIMIN , TIMLST,  TIMOUT,  NTIME , TIMFND, 

IRET  ) 


Input  parameters: 

User  input  time 

DATT IM 

CHAR* 

NTIMIN 

INTEGER 

Number  of  data  set  times 

TIMLST  (NTIMIN) 

CHAR* 

Da  t a set  t ime  s 

Ou  t pu  t par  ame  t e r s : 

TIMOUT 

CHAR* 

User  1 npu  t t ime 

NTIME 

INTEGER 

Number  of  times  requested 

TIMFND  (NTIME) 

CHAR* 

Re  qu e s t e d t ime  s 

IRET 

INTEGER 

Re  turn  code 

+ 2 = time  not  in  data  set 
+1  = EXIT  entered 
0 - normal  return 
-1  - DATTIM  is  invalid 
-2  - no  valid  times  entered 
-3  - no  times  in  range 
-4  » cannot  list  times 
-5  - data  set  has  no  times 
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29.8  T I_GREN  - LOCAL  TIME  TO  UTC 


This  subroutine  converts  an  integer  local  time  to  UTC  (Universal 
Time  Coordinated),  formerly  GMT  (Greenwich  Mean  Time).  The 
offsets  to  UTC  (GMT)  must  be  stored  in  GEMPRM.  PRM  . The 
subroutine  is  valid  through  1999.  Daylight  time  is  computed 
using  the  rule  valid  in  1987.  The  input  and  output  time  array 
names  may  be  the  same. 

TI_GREN  ( LOCARR,  IGRARR , I RET  ) 

Input  parameters: 

LOCARR  (5) 

Output  parameters: 

IGRARR  (5) 

I RET 

0 - n o rma  1 return 
- 1 3 - i nva lid  year 


INTEGER  Local  time  (YYYY  ,MM,  DD , HH  ,MM) 

INTEGER  UTC  time  ( YYYY ,MM, DD , HH ,MM) 

INTEGER  Return  code 
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29.9  T I_GRTM  - INTEGER  LOCAL  TIME  TO  UTC 


This  subroutine  converts  an  integer  local  time  to  UTC  (Universal 
Time  Coordinated),  formerly  GMT  (Greenwich  Mean  Time).  The 
subroutine  is  valid  through  1999.  Daylight  time  is  computed 
using  the  rule  valid  in  1987.  The  input  and  output  time  array 
names  may  be  the  same. 


TI_GRTM  ( LOCARR, 

IOFLST,  IOFLDT, 

IGRARR,  IRET  ) 

Input  parameters: 
LOCARR  (5) 

INTEGER 

Local  time  (YYYY,MM,DD,HH,MM) 

IOFLST 

INTEGER 

Standard  time  offset 

IOFLDT 

INTEGER 

Daylight  time  offset 

Ou  t p u t par  ame  t e r s : 
IGRARR  (5) 

INTEGER 

UTC  time  (YYYY,MM,DD,HH,MM) 

I RET 

INTEGER 

Return  code 

0 - normal  return 

-13  - invalid  year 
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29.10  TI_GTIM  - SYSTEM  LOCAL  TIME 


This  subroutine  returns  the  current  system  clock  time  as  a GEMPAK 
t ime  . 


TI_GTIM  ( DATTIM,  I RET  ) 

Output  parameters: 

DATTIM  CHAR* 

I RET  INTEGER 


System  time  in  GEMPAK  format 
Return  code 

0 - n o rma  1 return 
-1  - invalid  time 
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29.11  TI_IDTM  - DATE  AND  TIME  TO  GEMPAK  TIME 


This  subroutine  converts  a standard  GEMPAK  time  into  an  integer 
date  (YYMMDD)  and  time  (HHMM)  . 

TI 1DTM  ( DATTIM,  I DATE,  I TIME,  I RET  ) 

Input  parameters: 

DATTIM  CHAR*  GEMPAK  time 


Output  parameters: 

IDATE  INTEGER  Date  (YYMMDD) 

I TIME  INTEGER  Time  (HHMM) 

I RET  INTEGER  Return  code 

0 = normal  return 
-1  = invalid  time 
- 7 = i nva lid  year 
-8  = invalid  month 
- 9 = i nva lid  day 
-10  = invalid  hour 
-11  = invalid  minute 
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29.12  T I I TOC  - INTEGER  ARRAY  TO  GEMPAK  TIME 


This  subroutine  converts  an  integer  time  array  into  a standard 
GEMPAK  time.  The  integers  are  checked  for  validity. 

TI I TOC  ( IDTARR,  DATTIM,  I RET  ) 


Input  parameters: 

IDTARR  (5)  INTEGER  Time  array  ( YYYY ,MM, DD , HH ,MM) 


Output  parameters: 

DATTIM  CHAR*  GEMPAK  time 

IRET  INTEGER  Return  code 

0 - normal  return 
- 7 - inval id  year 
-8  - invalid  month 
-9  - invalid  day 
-10  — invalid  hour 
-11  = invalid  minute 
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29.13  TI_MDIF  - TIME  DIFFERENCE  FROM  INTEGER  TIME 


This  subroutine  computes  the  time 
two  integer  times.  The  time  diff 


may  be  computed  for 

a maximum  of 

TI_MDIF  C IDTAR1 , 

IDTAR2  , NMIN, 

Input  parameters: 

IDTAR1  (5) 

INTEGER 

IDTAR2  (5) 

INTEGER 

Output  parameters: 

NMIN 

INTEGER 

I RET 

INTEGER 

difference  in  minutes  between 
erence  is  timel  - time2  and 
one  year. 

I RET  ) 

Time  array  1 ( YYYY , MM , DD , HH  , MM  ) 
Time  array  2 ( YYYY , MM , DD , HH , MM ) 

Difference  in  minutes 
Return  code 

0 = n o rma  1 return 
-12  = invalid  time  range 
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29.14  TI SORT  - SORT  TIMES 


This  subroutine  sorts  a list  of  times  from  earliest  to  latest. 
The  input  and  output  arrays  may  be  the  same. 

TI SORT  ( NTIME , TIMIN , OUTIME,  IRET  ) 

Input  parameters: 

NTIME  INTEGER  Number  of  times 

TIMIN  (NTIME)  CHAR*  GEMPAK  times 

Output  parameters: 

OUTIME  (NTIME)  CHAR*  Sorted  times 

IRET  INTEGER  Return  code 

0 - n o rma  1 return 
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29.15  TI_STNT  - COMPUTE  STATION  TIME 


This  subroutine  returns 
standard  GEMPAK  nominal 
observation. 


the  station  observation  time  given  the 
time  and  the  hour  and  minute  of  the 


T I_STNT  ( DATTIM, 

IHHMM,  STNTIM, 

I RET  ) 

Input  parameters: 
DATT IM 
IHHMM 

CHAR* 

INTEGER 

Nomina  1 t ime 
Ob servation  hour /minut 

Output  parameters: 
STNTIM 
I RET 

CHAR* 

INTEGER 

Station  time 
Return  code 

0 * no rma  1 return 

- 7 - i nva lid  year 
-8  * invalid  month 

- 9 - i nva lid  day 
-10  - invalid  hour 
-11  - invalid  minute 

e 
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29.16  TI SUBD  - SUBTRACT  ONE  DAY 


This  subroutine  subtracts  a day  from  the  time  in  an  integer  array. 
The  input  and  output  arrays  may  be  the  same  array. 

T I — SUBD  ( IDTARR , JDTARR , I RET  ) 


Input  parameters: 

IDTARR  (5)  INTEGER 


Time  array  ( YYYY , MM , DD , HH , MM) 


Output  parameters: 

JDTARR  (5)  INTEGER 

I RET  INTEGER 


Time  array  ( YYYY , MM , DD , HH , MM ) 
Return  code 

0 = n o rma  1 return 
-7  = invalid  year 
-8  = invalid  month 
-9  = invalid  day 
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Terminal  (TM)  Library  Summary 


The  TERMINAL  library  provides  subroutines  to  write  messages  to  the 
user’s  terminal  and  to  read  terminal  input. 

The  subroutines  TM—INT,  TM_RE AL  and  TM^JCHR  wr  i t e a message  to  the 
terminal  and  return  the  integer,  real  or  character  array  that  was 
input  by  the  user.  TM—STR  returns  a single,  unprocessed  string. 
TM_^ACCP  waits  for  the  user  to  respond  by  entering  a carriage  return. 
In  every  case,  the  user  may  type  EXIT  to  stop  processing. 

Subroutines  to  clear  the  terminal  screen,  halt  program  execution 
and  write  messages  are  also  available. 


ERROR  MESSAGES: 


[TM  3] 
[TM  2] 
[TM  1 ] 
[TM  -3] 


Too  many  values  entered. 

EXIT  typed  by  user. 

Carriage  return  entered  by  user. 
Invalid  input  string. 
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TM  Library  Calls 

TfvLACCP  C / iiet  ) 

TM_CHAR  ( messg,  pagflg,  newln,  nexp,  / chrstr,  nstr,  iret  ) 

TM_INT  C messg,  pagflg,  newln,  nexp,  / integ,  nint,  iret  ) 

TM_PAGE  ( / iret  ) 

TMJROM  ( messg,  pagflg,  newlin,  / iret  ) 

TM_RCHR  ( / string,  iret  ) 

TM_JtEAL  ( messg,  pagflg,  newln,  nexp,  / rlnos,  nreal,  iret  ) 

TM_STR  ( messg,  pagflg,  newln,  / string,  iret  ) 

TMWAIT  ( isecnd,  / iret  ) 

TM-WCR  C / iret  ) 
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30.1  TM_ACCP  - WAIT  FOR  USER  TO  ACCEPT  VALUES 

This  subroutine  writes  the  following  message  at  user’s  terminal: 
’Enter  <CR>  to  accept  parameters  or  type  EXIT:’ 

The  user  must  enter  either  <cr>  or  EXIT. 

TM^ACCP  ( I RET  ) 

Output  parameters: 

IRET  INTEGER  Return  code 

2 - EX IT  entered 
1 - <cr>  entered 
0 - normal  return 
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30.2  TM—CHAR 


This  subroutine  wr 
by  ’or  type  EXIT’ 
An  array  of  charac 

TM_CHAR  C MESSG, 

Input  parameters: 
MESSG 
PAGFLG 
NEWLN 
NEXP 

Output  parameters: 
CHRSTR  (NSTR) 
NSTR 
I RET 


READ  STRINGS  FROM  THE  TERMINAL 


ites  a message  to  the  user’s  terminal  followed 
The  phrase  ’ <CR>  to  page’  may  also  be  added 
ter  strings  entered  by  the  user  is  returned. 

PAGFLG,  NEWLN,  NEXP,  CHRSTR,  NSTR,  I RET  ) 


CHAR* 

Me  s s 

age 

LOGICAL 

Flag 

to  add  * <CR>  t o 

page’ 

LOGICAL 

Flag 

to  move  to  new 

line 

INTEGER 

Maximum  # of  strings 

to  return 

CHAR* 

User 

input  strings 

INTEGER 

Numb 

er  of  strings  re 

turned 

INTEGER 

Re  tu 

rn  code 

3 

= too  many  s t r i n 

gs 

2 

= EXIT  entered 

1 

= <CR>  entered 

0 

= norma  1 return 
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30.3  TM_I NT  - READ  INTEGERS  FROM  THE  TERMINAL 


This  subroutine  writes  a message  to  the  user’s  terminal  followed 

by  or  type  EXIT’.  The  phrase  ’ <CR>  to  page’  may  also  be  added. 

An  array  of  integers  entered  by  the  user  is  returned. 

TM__INT  ( MESSG , PAGFLG , NEWLN , NEXP , INTEG,  NINT,  IRET  ) 

Input  parameters: 

MESSG 
PAGFLG 
NEWLN 
NEXP 

Output  parameters: 

INTEG  (NINT) 

NINT 
IRET 

3 - too  many  integers 
2 - EX IT  entered 
1 - <CR>  entered 
0 - n o rma  1 return 
-3  - invalid  input  string 


CHAR* 

LOGICAL 

LOGICAL 

INTEGER 

Me  s s ag  e 

Flag  to  add  " <CR>  to  page’ 
Flag  to  move  to  new  line 
Maximum  number  of  integers 

INTEGER 

INTEGER 

INTEGER 

Integers  entered  by  user 
Number  of  integers 
Return  code 
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30.4  TM—PAGE  - CLEAR  THE  TERMINAL  SCREEN 

This  subroutine  clears  the  terminal  screen. 
TM_J»AGE  ( I RET  ) 

Output  parameters: 

I RET  INTEGER  Return  code 

0 - normal 


return 
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30.5  TM_J>RCM  - WRITE  MESSAGE  TO  THE  TERMINAL 


This  subroutine  writes  a message  to  the  user’s 
by  the  phrase  'or  type  EXIT’.  The  phrase  ’ <CR> 
be  added.  Th is  subroutine  does  not  wa  it  for  a 


terminal  followed 
to  page ’ may  also 
user  response. 


TM—PROM  ( MESSG,  PAGFLG,  NEWLIN,  I RET  ) 


Input  parameters: 

MESSG  CHAR* 

PAGFLG  LOGICAL 

NEWLIN  LOGICAL 

Output  parameters: 

IRET  INTEGER 


Me  s s a g e 

Flag  to  add  ’ <CR>  to  page’ 
Flag  to  move  to  new  line 

Return  code 

0 - normal  return 
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30.6  TM-RCHR  - READ  USER  TERMINAL  INPUT 


This  subroutine  reads  a character  string  from  the 
checks  for  <CR>  or  EXIT. 


t e rmi  na  1 


and 


TM_RCHR  ( STRING,  IRET  ) 


Output  parameters: 

STRING  CHAR*  User  input 

IRET  INTEGER  Return  code 

2 - EXIT  entered 
1 - <CR>  entered 
0 « normal  return 
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30.7  TM_REAL  - READ  REALS  FROM  THE  TERMINAL 


This  subroutine  writes  a message 
by  ’or  type  EXIT’.  The  phrase  ’ 
An  array  of  real  numbers  entered 

to  the  user’s  terminal  f 
<CR>  to  page’  may  also  be 
by  the  user  is  returned. 

oil  owe  d 
added  . 

TMJ^EAL  ( MESSG, 

PAGFLG,  NEWLN, 

NEXP,  RLNOS,  NREAL,  I RET 

) 

Input  parameters: 
MESSG 
PAGFLG 
NEWLN 
NEXP 

CHAR* 

LOGICAL 

LOGICAL 

INTEGER 

Me  s s a g e 

Flag  to  add  < CR  > to  page1 

Flag  to  move  to  new  line 

Ma  x imum  numb  e r of  real  n umb  e r s 

Output  parameters 
RLNOS  (NREAL) 
NREAL 
I RET 

REAL 

INTEGER 

INTEGER 

Real  numbers  entered 
Number  of  real  numbers 
Return  code 

3 = too  many  reals 
2 = EXIT  entered 
1 = <CR>  entered 
0 = no  rma 1 return 
-3  = invalid  input  string 
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30.8  TM_STR  - READ  A STRING  FROM  THE  TERMINAL 


This  subroutine  writes  a message  to  the  user’s  terminal 
by  ’or  type  EXIT’.  The  phrase  ’ <CR>  to  page  may  also 
The  string  entered  by  the  user  is  returned. 


foil  owe  d 
be  added. 


TM_STR  ( MESSG,  PAGFLG,  NEWLN , STRING,  I RET  ) 


Input  parameters: 

MESSG  CHAR* 

PAGFLG  LOGICAL 

NEWLN  LOGICAL 


Me  s s a g e 

Flag  to  add  ’ <CR>  to  page’ 
Flag  to  move  to  new  line 


Output  parameters: 

STRING  CHAR*  String  entered 

IRET  INTEGER  Return  code 

2 = EXIT  entered 
1 = <CR>  entered 
0 = normal  return 
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30.9  TM_WA.IT  - WAIT  FOR  SPECIFIED  TIME  INTERVAL 


Th is  subroutine  halts  the  execution  of 
up  to  420  seconds  (7  minutes). 


the  calling  program  f 


TM-WAIT  ( ISECND,  IRET  ) 

Input  parameters: 

ISECND  INTEGER 

Output  parameters: 


Length  of  time  in  seconds 


IRET 

INTEGER 

Return  code 

0 -no  rma 1 

o r 
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30.10  TKJVCR  - WRITE  MESSAGE  AND  WAIT  FOR  A <CR> 

This  subroutine  prompts  the  user  with  the  message, 
’Enter  <CR>  to  continue’ 

and  waits  for  the  user  to  enter  a carriage  return. 
TM3CR  C IRET  ) 

Output  parameters: 

I RET  INTEGER  Return  code 

0 — normal  return 
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APPENDIX  A 
GEMPAK  CONSTANTS 


Th i s append  i x 
s o f twa  r e wh  i c h 


contains  the  parameter  definitions  for 
are  contained  in  GEMINC : GPARMS . PRM  . 


the  GEMPAK 


C* 


*************** 


******************************************************** 


C*  GEMPRM. PRM 


C* 

C*  Th is  include 
C*  s of  twa  r e . 

C* 

£************** 


file  contains  parameter  definitions  for 
**************************************** 


the  GEMPAK 
****************** 


C! 

C!  Missing  data  definitions 


C! 

PARAMETER 

( RMISSD  = -9999.0 

C! 

PARAMETER 

( RDIFFD  - 0.1 

C! 

PARAMETER 

( IMISSD  = -9999 

C! 

LOGICAL 

ERMISS 

C! 

C! 

Cl 

Physical  and  mathematical  constants 

C! 

PARAMETER 

( PI  - 3 . 14159265 

PARAMETER 

( HALFPI  - PI  / 2. 

PARAMETER 

( TWDPI  - 2.  * PI 

PARAMETER 

( PI4TH  - PI  / 4. 

Cl 

PARAMETER 

( DTR  - PI  / 180. 

PARAMETER 

( RTD  - 180.  / PI 

C! 

PARAMETER 

( RADIUS  - 6371200 

Missing  data  value 
Missing  integer  value 
Missing  value  fuzziness 
Declare  for  stmt  func 


PI  ...  . 

Degrees  < — > Radians 
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PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


( OMEGA 

( GRAVTY 

( RDGAS 
C RKAP 

( RKAP PA 
( AKAPPA 


Ea  rth  radius 

= 7.292E-5  ) 

Earth  angular  veclocitv 

- 9.80616  ) 

Acceleration  of  gravity 

= 287.04  ) 

- RDGAS  / GRAVTY  ) 

Gas  constant  of  dry  air 


2.  / 7.  ) 
7.  / 2.  ) 


( GAMUSD  - 6.5  ) 


File  information  parameters 


PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


( MMKEY 
( MMHDRS 
( MMPRT 
( \MLIST 
( MMFREE 
C MMFILE 


12 

4000 

20 

20 

62 

3 


C! 

PARAMETER 

C MBLKSZ  - 

128 

C! 

PARAMETER 

C MCACHE  - 

8 

C! 

PARAMETER 

( MMPARM  - 

40 

C! 

PARAMETER 

( MMFHDR  - 

10 

C! 

PARAMETER 

C MMSRCH  - 

30 

PARAMETER 

( MTVAX  - 

2 

PARAMETER 

( MTS UN  - 

3 

PARAMETER 

C MT IRIS  - 

4 

C! 

PARAMETER 

( MTMACH  - 

MTVAX 

C! 

PARAMETER 

( MMFLDP  - 

MMFILE 

PARAMETER 

C MDREAL  = 

1 

PARAMETER 

C MDINTG  = 

2 

PARAMETER 

( MDCHAR  = 

3 

PARAMETER 

( MDRPCK  = 

4 

Cl 

PARAMETER 

( MDGRID  = 

5 

Poisson  c on s t an t ; i n v e r s e 
US  std  a tmo s lapse  rate 

Maximum  # of  keys 
Maximum  # of  headers 
Maximum  # of  parts 
Maximum  search  list 
Number  of  free  pairs 
Maximum  # of  open  files 
B1 ock  size 
* of  cached  records 
Maximum  # of  parameters 
Maximum  # of  file  hdrs 
Max  # of  cond  searches 


Machine  type 
* MMPRT  ) 


Data  types  in  EM  lib 
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C! 


C! 


C! 

C! 


C! 

Cl 

C! 

C! 

Cl 

Cl 

C! 

Cl 

C! 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 

Cl 


PARAMETER 

( MDGNON  - 

PARAMETER 

( MDGGRB  - 

PARAMETER 

( MDGNMC  - 

PARAMETER 

( MDGDIF  - 

PARAMETER 

( MDGDEC  - 

PARAMETER 

( MFSF  - 

PARAMETER 

( MFSN  - 

PARAMETER 

( MFGD  - 

PARAMETER 

( MFNONE  = 

PARAMETER 

( MFAIRW  = 

PARAMETER 

( MFMETR  = 

PARAMETER 

( MFSHIP  = 

PARAMETER 

( MFBUDY  - 

PARAMETER 

( MFSYNP  - 

PARAMETER 

( MFRAOB  - 

PARAMETER 

( MFVAS  = 

PARAMETER 

( MMRECL  = 

clarations  for 

array  sizes  i: 

PARAMETER 

( LLMXLV  = 

PARAMETER 

( LLMXTM  - 

PARAMETER 

( LLMXGT  = 

PARAMETER 

( LLMXST  - 

PARAMETER 

( LLMXDT  = 

PARAMETER 

( LLSTFL  = 

PARAMETER 

( LLMXGD  - 

PARAMETER 

( LLSTHL  - 

PARAMETER 

( LLGDHD  - 

PARAMETER 

( LLOAGD  - 

PARAMETER 

( LLCLEV 

PARAMETER 

( LLAXIS 

0 

1 

2 

3 

4 

1 

2 

3 

0 

2 

3 


4 

5 

4 

5 


) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 

) 


) 

) 

) 

) 


200 


) 


1000  ) 


20 

IMP  ARM 
2000 
8000 
20 
128 
400 
SO 


) 

1 I 

) 

) 

) 

) 

) 


) 

) 


Grid  packing  types 
Data  file  types 


Unknown,  airways,  me  t a r , 
ship  data  source 


Raob , VAS  data  source 

Mu ltiplier  for  RECL  i n 
file  create/open 
(usually  4 on  UNIX  sys) 


Max  # 1 e ve 1 s / s t a t i on 

Max  # times/dataset 

Max  # grid  times 

Max  # stations  in  list 
XLV  ) 

Max  # data  points 
Max  # stations  in  file 
Ma x # grid  points 
Max  header  size 
Max  grid  hdr  length 
Ma x # grids  fr om  1 OA 
Max  # of  contour  lvls 
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C! 

C! 

C! 


C! 


C! 

C! 

C! 

C! 

C! 


C! 
C ! 


C! 


C! 

C! 

C! 

C! 

Cl 


C! 

C! 

Cl 

C! 


Max  # of  axis  labels 


Offsets  from  local  to  UTC  (GMT)  time 
PARAMETER  ( JOFLST  = 500 

PARAMETER  ( JOFLDT  = 400 


in  HHMM  ( hou r /mi  nu t e ) format 

) 

Offset  for  UTC/EST 

) 

Offset  for  UTC/EDT 


GEMPAK  table  files 

CHARACTER  * ( * ) GEOTBL , PCVTBL , PRMFLG , SFSTBL 

CHARACTER* ( * ) SNWTBL , SATNAV , GRDNAV 

PARAMETER  ( GEOTBL  - ’ GEMTABL : GEOG . TBL ’ ) 

PARAMETER  ( PCVTBL  = ’ GEMTABL : PCCONV . TBL ’ ) 

PARAMETER  ( SNSTBL  = ’ GEMTABL : SNSTNS . TBL ’ ) 

PARAMETER  ( SNWTBL  = ’ GEMTABL : SNW3RLD . TBL ’ ) 

PARAMETER  ( SFSTBL  = ’ GEMTABL : SFSTNS . TBL ’ ) 

PARAMETER  ( PRMFLG  - ’ GEMTABL : PRMFLG . TBL ’ ) 

PARAMETER  ( SATNAV  - ’ GEMTABL : SATNAV. TBL ’ ) 

PARAMETER  ( GRDNAV  = ’ GEMTABL  : GRDNAV.  TBL  ’ ) 


SNSTBL 

Ge  ogr a ph i c 
Parameter  conv 
Ra  ob  stations 
Wo  rid  raob  stns 
Su  rface  stations 
Par  ame  ter  flags 
AO IPS  satellite 


Grid  navigation 


File  Path  n ame  s 


C! 

CHARACTER 

CHARACTER 

GEMERR*  7 , 
GEMHLP*  7 , 

GEMTBL* 8,  GEMEXE* 7,  GEMGLB* 17 
MAPLOC* 8,  GPLERR* 17 

C! 

PARAMETER 

( GEMERR  = 

’GEMERR:  ' ) 

Cl 

PARAMETER 

( GEMTBL  = 

’GEMTABL:  ’ ) 

C! 

PARAMETER 

( GEMEXE  = 

’ GEMEXE  : ’ ) 

C! 

PARAMETER 

( GEMGLB  - 

’ GEMEXE : GEMGLB . PDF ’ ) 

C! 

PARAMETER 

( GEMHLP  = 

’GEMHLP : ’ ) 

C! 

PARAMETER 

( MAPLOC  = 

’GEMMAPS : ’ ) 

Cl 

PARAMETER 

( GPLERR  = 

’ GEMERR : GEMPLT . ERR ’ ) 

C! 

ASCI  I character 

constants 
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no  no  on  on 


GEMPAK  CONSTANTS 


Cl 

C! 

C! 

Cl 

C! 

Cl 

C! 

C! 

C! 

C! 

C! 

Cl 

C! 

C! 

C- 


CHARACTER* 1 
CHARACTER* 1 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 

PARAMETER 


CHARACTER 

PARAMETER 

CHARACTER 

COMMON 


CHNULL , CHS P AC , CHTAB , CHESC,  CHFS,  CHUS , CHGS 
CHCR , CHLF , CHFF , CHCAN 


( CHNULL  = CHAR  (0)  ) 

( CHTAB  = CHAR  (9)  ) 

( CHLF  = CHAR  (10)  ) 

( CHFF  = CHAR  (12)  ) 

( CHCAN  = CHAR  (24)  ) 

( CHCR  - CHAR  (13)  ) 

( CHESC  = CHAR  (27)  ) 

( CHFS  = CHAR  (28)  ) 

( CHGS  = CHAR  (29)  ) 

( CHUS  = CHAR  (31)  ) 

( CHS P AC  = CHAR  (32)  ) 


Null 

Tab 

Line  feed 

F o rm  feed 

Cancel  ( CAN ) 

Carriage  return 

Escape 

FS 

GS 

US 

Space 


--  COORDINATE  SYSTEMS  

sysup*8,syslo*8 

( sysup  = ’DNVPLMIG’ , syslo  = ’dnvplmig’  ) 
carray  (8)*1 
/ GPSYS  / carray 


GPLT  BUFFER  SIZE 

PARAMETER  ( IGBSIZ  = 100000  ) 

PARAMETER  ( IGTBSZ  =1100  ) 

CYLINDRICAL  MAP  TRANSFORMATIONS 

PARAMETER  ( MCCYL  = 1 ) 

PARAMETER  ( MPCEQU  = 1 , MPCMER  = 2 , MPCMCD  = 3 ) 

PARAMETER  ( MSCEQU  = 1 ) 

AZIMUTHAL  MAP  TRANSFORMATIONS 

PARAMETER  ( MCAZM  = 2 ) 

PARAMETER  ( MPAEQU  - 1 , MPASTR  = 2 , MPAORT  = 3 , 

MPALAM  = 4 ) 

PARAMETER  ( MPAGNO  - 5 ) 

PARAMETER  ( MSANOR  = 1 , MSASOU  = 2 ) 

CONICAL  MAP  TRANSFORMATIONS 

PARAMETER  ( MCCON  = 3 ) 
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no  on 
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PARAMETER  ( MPCNOR  - 1,  MPCSOU  = 2 ) 

OBLIQUE  MERCATOR 

PARAMETER  ( MCMER  - 4 ) 

PARAMETER  ( MPTMER  - 1 , MPUTM  = 2 , MPOBLQ  = 3 ) 

SATELLITE  TRANSFORMATIONS 

PARAMETER  ( MCGOES  - 6 , MPVAS  - 1,  MPAOI  - 2 

+ MPNPGS  - 3 ) 
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APPENDIX  B 

CHANGES  FROM  GEMPAK4  TO  GEMPAK5 


This  append ix  describes  the  changes  in  the  GEMPAK5  libraries  from 
GEMPAK4  . 

DG  library:  The  following  subroutines  have  been  added: 

DG_OF IL  - opens  mu ltiple  files 
DG_JkREA  - defines  a subset  area 
DG_JFLNO  - returns  grid  file  number 

DG_OANG  - sets  orientation  angle  for  cross  section 
DG_VECR  - returns  grid  relative  vector 

RESPND:  The  input  parameter  RES PND  has  been  removed  from  the 

following  subroutines: 

DG_GR I D , DG_VECT,  GICXIST,  TI_F IND 

Grid  packing:  The  following  subroutines  have  been  added  to  pack  and 

unpack  grids: 

DP PDEC  , DP PD  I F , DP_J>GRB,  DP_UDIF,  DP_UGRB  , DP_UNMC  , 

GD_WPGD , GD_WPPG 

GR  library:  The  following  subroutines  are  new: 

GR_AXLV,  GR I NTP  , GR PACK , GR_PLIN  , GR_j>LOC,  GR_ROBS 

GIC_GTIM  replaced  GR_TIME 

IN  library:  The  following  subroutines  are  new: 

IN_jAXIS,  I N_C  I NT  , I N_E  I NE  , I N_MRGD , IN^PRMC,  IN_SKYC, 
IN_TAXS , I N_WSYM 

OA  library:  Th e objective  analysis  has  a first  guess  capability  added: 

OA_GUES , OAJMAVG 

PD  library:  Th  ese  subroutines  have  been  added  to  all  ow  the  grid 

diagnostics  to  compute  meteorological  parameters 
efficiently. 

PR  library:  The  following  subroutines  have  been  added: 

PR^AMSL  replaces  PR SALT , PICJCOMT,  PR_D100,  PR^HGFS, 
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PR_UGSF,  PR I NMM,  PR_M100,  PR_MMIN 

Station  report  time:  This  time  has  been  changed  from  a character  GEMPAK 

time  to  an  integer,  IHHMM,  representing  the  hour  and  minute 
of  the  report.  The  following  subroutines  are  affected: 
SF_RDAT,  SN_RDAT , PC_SSTN,  PC_STIM 

SS  library:  The  following  routines  have  been  replaced  by  system 

independent  FL  modules:  SS__FLUN,  SS_GLUN 

SS — EXIT  has  been  added  to  terminate  a program.  It 
replaces  the  call  to  EXIT. 

TB  library:  TB_GRNV  is  a new  subroutine  to  read  a grid  navigation 

table. 

TB_J3CXS  has  been  deleted. 

Grid  time  library:  All  the  subroutines  which  deal  with  grid  times 

have  been  removed  from  the  TI  library  and  moved  to  the 
n ew  TG  1 i b r a r y . 

Miscellaneous  new  subroutines: 

fl_inqr 

GD__NGRD  replaced  GD_NMGD 

LC FLOC 

LV_CCRD 
PT_WSYM 
SF_UARE 
ST_RMST 
T I_JDI  FD 

Miscellaneous  deleted  subroutine: 

IM3MSG 
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